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1. ABSTRACT 


TWO SEPARATE DIAGNOSTIC PROGRAMS ARE PROVIDED FOR TESTING THE 
DM11 (ASYNCHRONOUS DATA MULTIPLEXER), MAINDEC-11-DZDMA (DM11 
LOGIC TESTS), AND MAINDEC-11-DZ0MB (DOM11 MULTIPLE LINE DATA 
TESTS). THE LOGIC TESTS INDIVIDUALLY TEST EACH OF THE 

16 OM11 LINES AND ALL COMMON LOGIC. THE MULTIPLE LINE DATA 
TESTS RUN SEVERAL LINES CONCURRENTLY AND ARE USED TO TEST LINE 
INTERACTION AND DATA TRANSMISSION/RECEPTION RELIABILITY. 

THIS DOCUMENT DESCRIBES THE MULTIPLE LINE DATA TESTS 

THE AVAILABLE TESTS ARE: 


PRGO - DATA TESTS 
PRG1 - DATA TEST(ALL LINES SIMULTANEOUSLY) 
PRG2Z2 - TRANSMIT TO TERMINALS 
PRG3 - ECHO RECEIVED DATA 
REQUIREMENTS 
Zz. 1 EQUiPMENT 
aw 11 FAMILY PROCESSER 
DM1 


A 
B. 
.. JUMPERS CONNECTING 16 TRANSMITTERS TO THEIR RESPECTIVE 
0 
E 


ty 


RECEIVERS. 

TERMINALS (IF AYA!LABLE) 

DM11 OISTRIBUTION PANEL 
i STORAGE 


THIS PROGRAM USES ALL OF CORE (4k? EXCEPT THAT AREA RESERVED 
FOR THE LOADERS. 


PREREQUISITE PROGRAMS 
MAINDEC-11-DZ0MA (DOM11 LOGIC TESTS) 


LOADING PROCEDURE 
THE ABSOLUTE LOADER 1S USED TO LORD THE PROGRAM 


bo 
a] 


i 
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4. USE PROCEDURE 
4.4 STARTING PROCEDURE 


BEFORE STARTING MAKE SURE THAT THE TTY IS IN REMOTE MODE. 
THREE STARTING ADDRESSES HRE PROVIDED 


0200 - THIS STARTING ADDRESS REQUESTS DM11 PARAMETERS. AND MUST 
BE USED TO INITIALLY START THE PROGRAM. AND WHENEVER ANY 
OF THE PARAMETERS LISTED BELOW 1S CHANGED 


A. VECTOR ADDRESS 7? 
RESPONSE: TYPE IN THE VECTOR ADDRESS OF THE DOM11 RECEIVER 
UNDER TEST. CARRIAGE RETURN SELECTS 0300 


B. UNIT #(8)? 
RESPONSE: THE DM11 UNIT NUMBER CORRESPONDS TO THE 
ADDRESS TO WHICH THE CLOCK STATUS REGISTER (CSR) RESPONDS. 


CSR ADDRESS OM11 UNIT &# CSR ADDRESS OM11 UNIT # 
175000 0 175100 10 
175010 1 175110 11 
175020 2 175120 12 
175030 3 175130 13 
175940 4 175140 14 
175050 5 175150 15 
175060 6 175160 16 
175070 ? 175170 17 


CARRIAGE RETURN SELECTS UNIT # 9. 


C. PRG & 
RESPONSE: TYPE PROGRAM NUMBER OF PROGRAM YOU WISH TO 
RUN. CARRIAGE RETURN SELECTS PROGRAM & 0. 


CARRIAGE RETURN TERMINATES ALL RESPONSES. 
ANY UNACCEPTABLE RESPONSE WILL RESULT IN A ? TYPEOUT AND 
THE PARAMETER WLLL AGAIN BE REQUESTED 


0204 - THIS STARTING ADDRESS USES PREVIOUSLY DEFINED DM11 
PARAMETERS AND REQUESTS THE PROGRAM NUMBER OF THE 
PROGRAM YOU WISH TO RUN. 


0210 - THIS STARTING ADDRESS STARTS THE PREVIOUSLY SELECTED 
PROGRAM USING PREVIOUSLY SELECTED PARAMETERS 
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4.2 SWITCH SETTINGS 
THE FOLLOWING SWITCH SETTINGS APPLY TO PROGRAM #0. 


SR 0-6 ROUTINE TO BE RUN (IF ENABLED BY SR-9) 
SR 9 LOOP SELECTED ROUTINE 

SR 11 INHIBIT ITERATION (DO EACH ROUTINE ONCE) 
SR 13 INHIBIT PRINTOUT 


SR 14 SCOPE (LOOP ROUTINE) 
SR 15 HALT ON ERROR 


THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 
A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS 
THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF NOT FOUND A 

SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED TO. 
IF THIS 1S THE CASE. UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 


(1E) SWR=XXXXXX NEW= 
POSSIBLE RESPONSES ARE: 


<CR> 1F NO CHANGES ARE TO BE MADE 
2. 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER 
VALUE ;LAST DIGIT FOLLOWED BY <CR>. 
U TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED 
KEYING IN SWREG VALLE 


| 
BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING G 
(CNTL G! ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG. WHICH !S PROCESSED IN KEY AREAS OF THE PROGRAM 


u 


CODE (1E) ERROR POUTINES, AFTER HALTS END OF PASS, AND OTHER 
APPLICABLE AREAS. 


———— -—— ———.- - ---- -— --4 
} 
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5.0 PROGRAM DESCRIPTIONS 
5.1 PRGO - LOGIC TESTS 


PRGO CONSISTS OF 34(8) INDEPENDENT ROUTINES WHICH TRANSMIT VARIOUS 
DATA PATTERNS ON ALL LINES WITH A DECREASING DELAY BEFORE STARTING 
SUCCESSIVE LINES. THE DATA 1S CHECKED WHEN ALL TRANSMITTERS HAVE 
COMPLETED TRANSMITTING. IF A DATA ERROR OCCURS THE ERROR TYPEOUT 
WILL SHOW THE DATA FAILURE AND THE LINE NUMBER 


§.2 PRG1 - DATA TEST (ALL LINES SIMULTANEOUSLY) 
PROGRAM 1 TRANSMITS ' A QUICK BROWN FOX JUMPED OVER THE LAZY DOGS 
BACK 1234567890' ON ALL LINES SIMULTANEOUSLY WHEN ALL LINES HAVE 
FINISHED RECEIVED DATA IS VERIFIED. AN ERROR TYPEOUT IS AS IN PRGO. 


PRGZ2 - TRANSMIT TO TERMINALS 
PROGRAM 2 IS THE SAME AS PROGRAM 1 EXCEPT THAT THE RECEIVED 
DATA 1S NOT CHECKED. 


5.4 PRG3 - ECHO RECEIVED DATA 
NOTE: THIS PROGRAM MAY ONLY BE RUN IF USING AN 
ASR 33 NOT MODIFIED BY DEC 
PROGRAM 3 ECHOES BACK DATA RECEIVED FROM A TERMINAL 
NOTE: PROGRAM 3 SHOULD BE RUN AND DATA TYPED AT ALL AVAILABLE 
DOM11 TERMINALS. IT IS THE ONLY TEST THAT INSURES CORRECT OPERATION 
OF THE DOM11 DISTRIBUTION PANEL LOGIC. IF THE TERMINALS ARE ASR-33 
WITH A PAPER TAPE READER/PUNCH | SUGGEST THAT INDIVIDUAL TAPES BE 
MADE UP FOR EACH LINE. THIS CAN BE DONE BY RUNNING PROGRAM 2 WITH 
THE PUNCH TURNED ON. PROGRAM 2 WILL THEN PUNCH A TAPE. ON EACH TERMINAL 
WITH THE LINE NUMBER IDENTIFIER AT THE BEGINNING OF EACH TAPE 
PROGRAM 3 CAN BE RUN WITH THESE TAPES IN THE PAPER TAPE READERS. 


ui 
Gi 
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Pd 


TITLE MAINDEC-11-D0Z0MB OM11 DATA TESTS 
.NLIST MC, MD 


:, ME 
. ENABLE ABS, SMA 


;DM11 DATA TESTS DIAGNOSTIC MAINDEC-11-DZ0MB-8 (FORMERLY D9GB) 
;COPYRIGHT 1972, 1977 DIGITAL EQUIPMENT CORP... MAYNARD, MASS. 01754 
-PRGO- DATA TESTS 

;PRGi- DATA TEST (ALL LINES SIMULTANEOUSLY) 

;PRG2- TRANSMIT TO TERMINALS 

*>PRG3- ECHO RECEIVED DATA 


; STANDARD SR SWITCH OPTIONS SWITCH SET TO A 1 (UP) 
>SR15- HALT ON ERROR 

+ SR14- SCOPE. 

> SR13- INHIBIT PRINTOUT 

;>SR12- INHIBIT TRACE 

>SR11- INHIBIT ITERATION. 

> SR9- LOOP ROUTINE. 

>SR6 THROUGH SRO - NUMBER OF ROUTINE TO BE LOOPED. 


>EQUATE STATEMENTS 


177776 CC=177776 

177776 PSW=177776 

000004 ERRVEC=4 

000240 NOP=240 ‘ 
000000 OPEN=0 

100600 MANUAL =B1T15 

100060 B1T15=100000 

040000 B1T14=40000 

020000 B1T13=20000 

010000 B1T12=10000 

004000 B1T11=4000 

002000 B1T10=2000 

631000 B1T9=1000 

000400 B1T8=400 

000200 B1T7=200 

000100 Bi T6=100 

000040 BI T5=40 

000020 BIT4=20 

000010 BIT3=10 

000004 BIT2=4 

000002 BiT1=2 

000001 Bi TO=1 

005726 POPSP=5726 POP THE STACK. SAME AS TST (6)+ 
022626 POPSP2=022626 >POP STACK TWICE. SAME AS CHP (6)+, 16)+ 
000340 PRTY7=340 >PRIORITY LEVEL DEFINITIONS 
000300 PRTY6=300 

000240 PRTYS=240 

000200 PRTY4=200 

006140 PRTY3=140 

000100 PRTY2=100 


000040 PRTY*=40 
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000000 
000002 
ooo004 
000006 
000010 
000012 
000014 
000016 
000020 
000022 
000024 
000026 
000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000052 


0009000 
000000 
000001 
000002 
000003 
000004 
000005 
oco0006 
000007 


104000 
104001 
104002 
104003 
104004 
104006 
104007 
104010 
104012 
104013 
104014 
104915 
104016 
104017 
104020 


000007 
177777 
125252 
052525 
000000 
177777 
000000 
000000 
000000 
oov000 
000006 
000000 
000012 
000000 
000016 
000000 
000022 
000000 
000026 
000000 
002572 
000340 
000036 
000000 
000042 
000000 
OCO004e 
00G6900 
000052 
000000 
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PRTYO=0 
RO=%0 


PC=%7 


EMT CALLS 


TYPE=ENT+0 
TYPES=EMT+1 
STALL=EMT+2 
ERROR=ENT+3 
DATCHK=EMT+4 
STRXV=ENT+6 
STTXV=EMNT+7 
EHAL T=ENT+10 
SCOPE=EMT+12 
SAVREG=ENT+13 
RSTREG=ENT+14 
ERROR1I=EMT+15 
SUSWR=EMNT +16 
KBDIN=EMNT+17 
CNTLU=EMT+29 


BELL=007 
ATLAST=-1 
AL TO=125252 
ALT1=052525 


H 
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>ALTERNATING O'S PATTERN 
;ALTERNATING 1'S PATTERN 


>SP OVERFLOW, BUS ERROR TPAP 
>RESERVEG INSTRUCTION TRAP 

> TRACE TRAP 

> TRAP TO CALL !0* 

>POWER FAIL TRAP 

-EMT TRAP 


> TRAPPED TO PREWIUVUS ADDRESS. 
> TRAPPED TO PREWIOUS ADDRESS 
> TRAPPED TO PREVIOUS ADDRESS 


a RY? 


SEQ 0007 





MP NDEC-11-DZ2DMB OM11 DATA TESTS 


“ZDMBC. P11 


000054 
o000C56 
000060 
000062 
000064 
000066 
000070 
900072 
000074 
000076 
000100 
000102 
000104 
000106 
000110 
000112 
000114 
000116 
000120 
000122 
000124 
000126 
000130 
000132 
000134 
0001 36 
000140 
000142 
000144 
000146 
000150 
000152 
000154 
000156 
000160 
000162 
000164 
000166 
000170 
000172 
000174 
000! 76 
000200 
000202 
000204 
000206 
000210 
000212 
000214 
000216 
000220 
000222 
000224 
000226 
000230 
000232 
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000056 
000000 
000062 
000000 
000066 
000000 
000072 
oc0000 
000076 
000000 


000232 
000000 
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; TRAPPED 
; TRAPPED 
+ TRAPPED 
; TRAPPED 
> TRAPPED 
+ TRAPPED 
> TRAPPED 
; TRAPPED 
; TRAPPED 
> TRAPPED 
; TRAPPED 
> TRAPPED 
; TRAPPED 
> TRAPPED 
; TRAPPED 
; TRAPPED 
> TRAPPED 
> TRAPPED 
> TRAPPED 
> TRAPPED 
; TRAPPED 
; TRAPPED 
> TRAPPED 
; TRAPPED 
; TRAPPED 
> TRAPPED 
> TRAPPED 
> TRAPPED 


2 
22-NOV-77 15:32 PAGE 6-2 


PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREV!OUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 


ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADORESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS 
ADDRESS. 
ADDRESS. 
ADDRESS 
ADDRESS. 
ADDRESS 
ADDRESS. 
ADDRESS 
ADDRESS 


sesereserneianrneree vee 


SEQ 0008 | 
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000234 
000236 
000240 
000242 
000244 
000246 
000250 
000252 
000254 
000256 
000260 
000262 
oC0264 
000266 
000270 
000272 
000274 
000276 
000300 
000302 
000204 
000306 
000310 
000312 
000314 
000316 
000320 
000322 
000324 
000326 
000330 
000332 
000334 
000336 
000340 
000342 
000344 
000346 
000350 
000352 
000354 
000356 
000360 
000362 
000364 
000366 
000370 
000372 
000374 
000376 
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000236 
000000 
000242 
000000 
000246 
000000 


00000 
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; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
+ TRAPPED 
+ TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
+ TRAPPED 
; TRAPPED 
: TRAPPED 
> TRAPPED 
> TRAPPED 
; TRAPPED 
> TRAPPED 
+ TRAPPED 
> TRAPPED 
> TRAPPED 
> TRAPPED 
> TRAPPED 
, TRAPPED 
> TRAPPED 
; TRAPPED 
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PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREWIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 


ADDRESS. 
ADDRESS. 
ADORESS. 
ADDRESS 

ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ACDORESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADORESS 

ADDRESS 

ADDRESS. 





SEQ 0009 


: 
| 
| 
| 
| 
| 
| 


igs 
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000046 . =46 + ACTi1 HOOKS 
o00C4%6 002530 SENDAD 
000052 . 252 
000052 020009 020000 
000174 7174 
000174 9ocd000 DISPREG: 0 
000176 90cd00 SWREG: 0 
000200 . =200 
000200 000137 JMP d* START +GO TO START OF DIAGNOSTIC. 
000264 000137 JMP O#RSTATI ;GO GET PROGRAM # & RESTART PROGRAM 
+USING PREVIOUS DM11 PARAMETERS 
000210 000137 JMP O#RSTATZ +RESTART PREVIOUS PROGRAM USING 
>PREVIOUS DM11 PARAMETERS 
001100 =1100 
001100 000000 SPBOT: QO 
001102 177570 SUR: 177570 
001104 177570 DISPLAY: 177570 
001106 900000 T: OPEN ; STARTING ADDRESS OF 
001146 . =CAT+32 CURRENT ADDRESS TABLE 
001146 000000 WCT: OPEN ; STARTING ADDRES OF 
001206 . sWCT+32. ;WORD COUNT TABLE 
001206 000000 BAT: OPEN ; STARTING ADDRESS OF 
001246 . =BAT +32. BIT ASSEMBLY TABLE 
001246 000000 VAC: OPEN >32 SPARE WORDS 
001250 175000 CSR: 175000 ;ADDRESS OF CLOCK STATUS REGISTER 
001252 175002 BRR: 175002 + ADDRESS OF BUFFER ACTIVE REGISTER 
001254 175004 BKCSR: 175004 ; ADDRESS OF BREAK STATUS REGISTER 
001256 175006 BASREG: 175006 ; ADDRESS OF BASE REGISTER 
001260 000000 CLKINT: OPEN >DM11 VECTOR ADDRESS (RECEIVER) 
001262 000240 CLKLVL: PRTYS ;PRIORITY LEVEL 
001264 o0u000 XMTINT: OPEN ;DM1i VECTOR ADDRESS (TRANSM!TTER) 
001266 000240 XMTLVL: PRTYS > TRANSMITTER PRIORITY LEVEL 
001270 000000 BARIM: OPEN ; PROGRAM BAR IMAGE 
001272 000000 TTDAT: OPEN ; TUMBLE TABLE DATR 
001274 900000 LINBIT: OPEN >LINE BIT (FOR BAR) 
001276 000000 BARDAT: OPEN *BAR DATA 
001300 000000 TTPTR: OPEN ;PROGRAM TUMBLE TABLE POINTER 
001396 =VAC+32 
001306 900000 TUMTRB: N STARTING ADDRESS OF 
001506 =TUMTAB +125. + TUMBLE TABLE 
001506 000060 TKVTR: 60 >LSR INTERRUPT VECTOR 
001510 000200 TKLVL: PRTY4 *LSR PRIORITY LEVEL 
001512 000064 TPVTR: 64 *>LSP INTERRUPT VECTOR 
001514 000200 TPLVL: PRTY4 LSP PRIORITY LEVEL 
001516 000000 KSTART: OPEN CURRENT PROGRAM START ADDRESS 
001520 000000 CURTST: OPEN CONTAINS ADDR OF CURRENT TEST 
001522 000000 RTNNO: OPEN CONTAINS CURRENT TEST &. 
001524 000000 NXTST: OPEN +CONTAINS ADDR OF NEXT TEST 
001526 00G000 ICTR: OPEN > CONTAINS CURRENT ITERATION COUNT 
001530 000000 SCOPTR: OPEN ; CONTAINS CURRENT SCOPE POINTER 
001532 177774 PRGLIM: -4 














































001534 


001564 
001566 
001570 
001572 
001574 
001576 
001600 
001602 
001604 
001606 
001610 
001612 
001614 


001616 
001620 
001622 
001624 
001626 
001630 
001632 
001634 
001636 
001640 
001642 
001644 
001646 
001650 
001652 
001654 
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005366 
006346 
006532 
006542 
005410 
006364 
006536 
006560 
002726 
000000 
000000 
001732 
001664 
000000 
000000 
000000 
000000 
000000 
002356 
002624 
C02664 
001750 
004120 
003764 
004040 


000000 
177560 
177562 
177564 
177566 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
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PRGTRB: 


RSTART: 


EMTTRB: 


CNTLUU 


OPEN 
177560 
177562 
177564 
177566 
OPEN 
OPEN 


* OPEN 


OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
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+PRGO START ADDRESS 
+PRG1 START ADDRESS 
;PRGZ2 START ADDRESS 
;PRG3 START ADDRESS 
+PRGO RESTART ADDRESS 


; POINTER 
sPOINTER 
i POINTER 
; POINTER 


TO TYPEOUT ROUTINE 

TO CHAINED MESSAGES ROUTINE 
TO RANLUOM STALL ROUTINE 

TO ERROR ROUTINE 


SEQ 0011 


s 2 
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001656 104000 INCRTN: TYPE 
001660 013006 M1 +; TYPE INCORRECT ROUTINE SELECTED 
001662 000207 RTS %7 sEXIT 


Bete CHECK ROUTINE. 
001664 123737 001630 001632 DTCHK: CMPB RCVDAT, XMTOAT  ; COMPARE EXPECTED AND RECEIVED 


001672 OCi416 BEQ 1$ i; CHARS. BRANCH IF SAME. 
001674 004737 Q02064 JSR 7, CNVDAT CONVERT RCVDAT & XMTDAT TO ASCII 
001700 032777 O20C00 177174 BIT #B1T13, dSWP ERROR TYPEOUT DESIRED? 
001706 001010 BNE 1$ ;BRANCH IF NO TYPEOUT DESIRED 
001710 004537 bo4e20 JSR 5, d#OACNY + CONVERT LINE 
001714 CO01646 LINE ; NUMBER 
001716 012762 AL INE TO ASCII 
001720 000002 2 
001722 104015 ERROR 1 
001724 104000. TYPE > TYPE LINE # AS PART 
001726 012753 LINEN ;OF ERROR MESSAGE 
001739 000002 1S: RTI > EXIT 
— SERVICE ROUTINE CALLED BY TRAP (HLT) 
001732 012737 000402 002032 ERR MOV #402, ERRB >MOV BR . +6 TO ERRB 
001740 013737 001640 001642 MOV —" oe RPCADD ;GET PC WHERE ERROR OCCURRED 
001746 O00410 =. BR ERRA 
001750 012737 000240 002032 EFR1: MOV #240. ERRB ;MOVE NOP TO ERRB 
001756 013737 G01640 001642 MOV a#PCADD, a#APCADD GET PC WHERE ERROR OCCURRED 
001764 004737 002064 JSR 7, d@CNVDAT > CONVERT RCVDAT & XMIT DAT TO ASCII 
001770 104017 ERRA: KBDIN +CHECK FOR G 
001772 032777 O20000 177102 BIT #B1T13, dSWR ERROR PRINTOUT DESIRED 
002000 001017 BNE ERRC >BRANCH IF NO PRINTOUT 
002002 004537 004620 JSR 5, d#OACNY > CONVERT 
002006 001642 APCADD > DATA 
002010 013442 APC :T0 
002012 000006 6 -ASCII 
002014 004537 004620 JSR 5, d# OACNY > FOR 
002020 001522 RTNNO ; PRINTOUT 
002022 013432 ATNUMB 
002024 020003 J 
002026 104000 TYPE - TYPE ERROR 
002030 013427 EMO : MESSAGE 
002032 000000 ERRB: OPEN >NOP IF ERROR1, BR . +6 IF ERROR 
002034 104000 TYPE > TYPE ANOTHER MESSAGE 
002036 012796 ERDAT 2 iF ERROR 1 
002040 023737 O00042 O0004e ERRC: CMP 0842, 0846 >ACTI1? 
002046 001403 BEQ ERPHLT BR IF YES 
002050 005777 177026 TST dSHR >HALT ON ERROR 
002054 100001 BPL ERREX GO TC EXIT IF NO HALT ON ERROR 
002056 000000 ERRHLT: HALT ; HALT 
002060 104017 ERPEX: KBDIN ;CHECK FOR G 
002062 000002 RTI >RETURN 
: SUBROUTINE TO CONVERT RCVOAT AND XMTDAT TO ASCII AND PLACE 
; IN MESSAGE. 
002064 004537 004620 CNVDAT. JSR 5, OACNY 
002070 001632 XMTDAT 
002072 012726 AASB 
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002074 000006 6 

002076 004620 JSR 5, OACNV 

002102 0 RCVDAT 

002104 AWAS 

002106 6 

002110 000207 RTS ? sEXIT 
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DZOMBC Pil 


002112 
002116 
002120 
902124 
002130 
002134 
062142 
002144 
002146 
002150 
002154 
002156 
002164 
002170 
002174 
002200 
002204 
002210 
002214 
002222 
002224 
002232 
002234 
002236 
002240 
002242 
002244 
002246 
002254 
002262 
002266 
002272 
002274 
002300 
002306 
002310 
002314 
002316 
002322 
002326 
002332 
002334 
002340 
002346 
002350 
002354 


002356 
002360 
002364 
002370 
002374 
002376 
002404 


22-Nov-77 15: 10 


012706 
104016 
004737 
004737 
012706 
023737 
601405 
104000 
012766 
004537 
000000 
042737 
006337 
013700 
000170 
012706 
013700 
000170 
022737 
001410 
023737 
001405 
104000 
013036 
000000 
000401 
104020 
013737 
012737 
005037 
012706 
000005 
004737 
032777 
001003 
000177 
000461 
017700 
042700 
123700 
001002 
000177 
022737 
001352 
004737 
000734 


000240 
005077 
005077 
005077 
104017 
012777 
032777 


001100 


003042 
003550 
001100 
000042 


003604 


001532 
002154 
002154 
001534 
001100 
002154 
001544 
000176 


600042 


001516 
177% 
001100 
002540 
001000 
177204 
176560 
177600 
001522 


177160 
177777 


001656 


176664 
176664 
176656 


001106 
040000 


000046 


002154 


001102 
000046 


001524 
000004 


176574 


001524 


1706052 
176470 


MACY11 30(1046) 


START: 


RSTAT1: 


PRGNUNM: 


RSTATZ: 


SRSET: 


1$: 


GETRDY: 


GTROYx: 


GTRDYA: 


GTROYC: 


GTROYD: 


; SCOPE 


ESCOPE: 


8 
22-NOV-77 


#SPBOT, %6 


7. @#OMPAR 
7, O#OVRLAY 
#SPBOT, %6 
O42, d#46 
PRGNUM+2 


5, RECD 


PRGL IM. PRGNUM 
PRGNUM 
PRGNUM, %0 
@PRGTAB(O) 
#SPBOT, %6 
PRGNUNM, %0 
@RSTART(O) 
#SWREG. SWR 


1$ 
#42, dF46 
GETRDY 


GETRDY 


KSTART, NXTST 
#6, ORERRVEC 
PSW 
#SPBOT, %6 


%7, FORWD 
#BIT9, dSWR 
GTROYC 
aCURTST 
SCOPED 
OSHR, %0 
#177600, x0 
RTNNO, ~0 
GTROYO 
dCURTST 
#-1,NXTST 
GTROYA 

%7, \NCRTN 
Ge TRDY 


ROUTINE (CALLED BY ENT 


NOP 
CLR 
CLR 
CLR 
KBDIN 
MoV 
BIT 


aCSR 
OBKCSR 
OB AR 


#CAT, ABASREG 
#BIT14, SUR 


2 
15:32 PAGE 9 


> INITIALIZE STACK 
; CHECK FOR HARDWARE SWITCH REGISTER 
GET DM11 PARAMETERS 
;PUT HALT,. +2 IN VECTOR AREA 
+ INITIALIZE STACK 
;ACTI1? 
BR IF YES 


+GET THE PRGNUM & 
;PUT IT HERE 

;MASK OFF UNUSED BITS 
SHIFT PROGRAM & 

+GET PROGRAM & 

GO START PROGRAM 

> INITIALIZE STACK 
GET PROGRAM # 

GO RESTART PROGRAM 


,ACT11? 
+BR IF YES 
> TYPE OPTIONS MESSAGE 


;WAIT FOR USER TO SET OPTIONS 


;ADOR OF 1ST ROUTINE TO NXTST 
>RESET ERROR TRAP. 


+SET BOTTOM OF STACK. 

/ ISSUE RESET. 

7ROLL FORWARD TO “NEXT™ ROUTINE. 
-CHECK SELECT ROUTINE SWITCH 


= BRANCH IF SELECT ROUTINE SWITCH IS SET. 


>GO RUN CURRENT ROUTINE. 

*NO GO. MANUAL RTN BYPASSED 
>(SR) TO RO 

*MASK UNDESIRED BITS 

COMPARE RTNNO TO (RO) 

BRANCH IF ROUTINE NOT FOUND YET. 
>GO RUN ROUTINE. 

>NO. CHECK FOR LAST ROUTINE. 
;BRANCH IF NOT LAST ROUTINE. 

> YES. INCORRECT ROUTINE SELECTED 
START OVEP. 


INST. ) 


> INITIALIZE 
; THE 
>OM11 


>CHECK FOR SCOPE OPTION 


SEQ 0014 





| C 2 ac aang 
MAINDEC-11-DZDMB DM11_ DATA TESTS MACY11 30(1046) 22-NOV-77 15:32 PAGE 9-1 


22-NOV-77 15: 10 


OZOMBC P11 


002412 
002414 
002420 
002422 
002430 
002432 
002440 
002442 
002446 
002450 
002454 
002456 
002460 
002466 
002470 
002476 
002500 
002504 
002506 
002510 
002514 
002516 
002520 
002522 
002524 
002526 
002530 
002532 
002534 
002536 


002540 
002544 
0u2550 
002554 
002560 
002564 
002570 


002572 
002574 
002600 
062604 
002610 
002614 
002616 
002622 


002624 
002630 
102634 
002636 
002640 
002642 


001403 
013716 
000002 
032777 
001012 
023737 
001003 
005737 
001403 
005337 
001357 
022626 
032777 
001267 
022737 
001266 
005237 
104000 
013011 
013702 
001654 
000905 
000240 
000240 
000240 
000240 
004712 
000240 
000240 
006240 


015705 
012557 
012537 
012537 
012537 
010537 
030207 


011646 
162716 
011637 
01,616 
105066 
006316 
062716 
013607 


012637 
012637 
010446 
016346 
010246 
010146 


001530 
004000 
000042 
001652 
001526 


001000 
177777 
001652 


O00C4= 


001524 


001520 


000002 
001640 
000000 
000001 


001554 


002e¢60 
00266- 


176452 
000046 


176414 
001524 


BEQ SCOPEB 
SCOPEA: he SCOPTR, d%6 
SCOPEB: BIT #B1T11,. dSWR 
BNE SCOPEC 
CMP O#42, 846 
BNE 1$ 
TST a#PASS 
BEQ SCOPEC 
1$: DEC ICTR 
BNE SCOPEA 
SCOPEC: POPSP2 
SCOPEO: BIT #8179, dSWR 
BNE GETRDY 
CMP #-1,NXTST 
BNE GTRDYX 
INC aePASS 
TYPE 
M2 
MoV ae42. %2 
BEG GETRDY 
RESET 
NOP 
NOP 
NOP 
NOP 
SENDAL JSR Teta 
NOP 
NOP 
NOP 
FOPWD: MoV NXTST, %5 
MOV (5)+.R TNNO 
MoV (S5)+,NXTST 
MoV (5)+, 1CTR 
MoV (5)+, SCOPTR 
MOV %5, CURTST 
RTS R7 
>EMT TRAP INTERPRETER 
EMTINT: MOV (6),-(6) 
SUB #2, (6) 
MoV (6), PCADD 
MoV a(6), (6) 
CLRB 1/6) 
ASL (6) 
ADD #cMTTAB, (6) 
MoV a(o)+,%7 
> SAVE REGS O TO 4 SUBROUTINE. 
SAYRG: MoV (6)+, 1% 
MoV (6)+, 2% 
MoV %3, -(6? 
MoV %Z. ~ (6) 
MoV “1. - Ce) 


;BRANCH IF SCOPE SW NOT SET 
;SET UP TO RETURN TO ROUTINE 
;RETURN TO ROUTINE. 

; TEST INHIBIT ITERATION SWITCH 


;BRANCH IF —— !TERATION SW SET. 
; 1 


BR IF NO 
1ST PASS? 


;BR IF YES 
;DECREMENT ITERATION COUNT. 
;BRANCH IF COUNT NOT 0 
;POP STACK TWICE 
; CHECK SELECT ROUTINE SWITCH 
;BRANCH iF SELECT RTN SW SET 
;LAST TEST? 

;BRANCH IF NOT LAST TEST. 

; IND PASS 

; TYPE 


> "END' 
; CHECK DDP/ACT11 MONITOR HOOK 


>RETURN TO DDP/ACT11 MONITOR 


;ADDR OF NEXT ROUTINE TO R5 

:GET NEXT ROUTINE NUMBER 

;GET ADDR OF NEXT “NEXT™ ROUTINE. 
;GET ITERATION COUNT. 

;GET SCOPE LOOP ENTRY POINTER 


;ADDR OF NOW CURRENT TEST TO CURTST. 


>EXIT FORWD SUBROUTINE. 


GET PC OF NEXT INSTRUCTION 
;POINT SP TO PC OF EMT 

GET PC OF EMT CALL 

>GET EMT CALL 

STRIP EMT & SAVE IDENTIFIEP 
;SHIFT !DENTIF IER LEFT 


-GOQ TO PROPER EMT 


>SAVE PC AND PSH 


;SAVE REGS 0 - 4 
IN STACK. 





———-—_—-- --+ 


| 


SEQ 0015 | 


x 





MAINDEC-11-DZ0MB OM11 DATA TESTS 
22-NOV-77 15: 10 


DZOMBC. P11 


002644 
002646 
002652 
002656 
002660 
062662 


002664 


0027 724 


.002726 
002730 
002732 
002736 
002740 
002744 
002752 
002754 
002756 
002764 
002766 
002772 
002774 
003002 
003006 
003010 
003012 
003020 
003024 
003032 
003036 
003040 


003042 
003044 
003052 


003054 
003060 
003064 
003070 


010046 
013746 
013746 
000002 
000000 
000000 


000240 
012637 
012637 
012600 
012601 
012602 
012603 
012604 
013746 
013746 
000002 
000000 
cooo00 


000240 
011600 
062716 
011000 
112037 
122737 
001001 
000002 
122737 
001412 
004737 
000762 
113777 
105777 
100375 
000207 
112737 
004737 
112737 
004737 
000740 
000000 


000240 
023737 
001060 


012700 
016060 
012720 
005720 


002662 
002660 


002722 
002724 


002724 
002722 


000002 
003040 
000100 
000045 
002774 
003040 
176616 


000015 
002774 
000012 
002774 


000042 


009302 
177776 
000003 


003046 


003040 


176624 


003040 
003040 


NOCO4e 


1$: 
23: 


0 2 
MACY11 30(1046) 22-NOV-77 15:32 PAGE 9-2 


MOV %0, - (6) 


MOV 2$, - (6) ;RESTORE PC AND FSW 


RTI > EXIT. 
OPEN ; CONTAINS SAVED PC 
OPEN ; CONTAINS SAVED PSW 


;RESTORE REGS 0 TO 4 SUBROUTINE. 
RSTRG: P 


1S: 
2S: 


TYP 


3$ 


4S. 


MoV (6)+,1$ ; SAVE PC AND PSW 
MoV (6)+, 2$ 
MOV (6)+,%0 RESTORE REGS 0 - 4 
MOV (6)+, %1 ;FROM STACK 
MoV (6)+, %2 
MoV (6)+,%3 
Mov (6)+, %4 
MoV 23, -(6) >RESTORE PC AND PSW. 
MOV 1$,.-(6) 
RTI ;EXIT 
OPEN ; CONTAINS SAVED PC 
OPEN ; CONTAINS SAVED PSW 
peeneut ie TO OUTPUT ASC!1 MESSAGE ON TELETYPE PRINTER. 
NOP 
MoV (SP), %0 :GET ADDRESS THAT CONTAINS MESSAGE ADDRESS 
ADD #2, (SP) ;SET UP EXIT 
MoV a%0, ~0 ;ADDRESS OF MESSAGE TO RO 
MOVB (0)+,5% ;GET CHARACTER 
CMPB #100,5$ > CHECK FOR"a" CHARACTER 
BNE 25 ;BRANCH IF NOT"a”. 
RTI ; TERMINATOR CHAR. DONE. EXIT 
CMPB #45,55 > CHECK FOR"%". 
BEQ 4S :BRANCH IF"%" 
st x7. 38 ; TYPE CHAR IN 5% 
1 
MOVB 5%, aTPOBP ;QUTPUT CHARACTER TO PRINTER 
TSTB aTPCcsR ;WAIT FOR DONE FLAG 
BPL =" 
RTS %7 SEXIT 
MOVB #15.55 >MOVE CARRIAGE RETURN CODE TO 5$ 
JSR %7, 2835 :GO TYPE CHAR 
MOVB #12.5% ;MOVE LF CODE TO 5% 
JSR %?, 38 ;GO TYPE CHAP. 
BR 1$ 
OPEN 


5S: 


; SUBROUTINE TO GET DM11 PARAMETERS 
>; VECTOR ADDRESS 


DMPAR: 


4S. 


NOP > BEGIN 

CMP OF42, dB4O ;ACT11? 

BNE 6$ >;BR IF NO 

;SiZ7E FOR INTERRUPT VECTOR IN AUTO MODE 

MOV #302,.R0 >SET UP FLOATING WECT AREA 
MoV RO. - -2( RO) 

MoV #3, (RO)+ 

TST (RO)+ 





SEQ 0016 





gE @ 
MAINDEC-11-DZ2D0MB OM11 DATA TESTS MACY11 30(104%6) Z22-NOV-77 15:32 PAGe 9-3 


003402 012702 900004 MoV #4, %2 


DZOMBC.P11  22-NOV-77 15:10 SEQ 0017 | 
003072 022700 000776 _ CMP #776, RO 
003676 100370 BPL 4§ 
003100 012737 003170 000014 Mov #5%, a814 ;SET BPT VECT 
003106 012737 000340 o00016 MOV #340, a#16 78 PSW 
003114 012737 177777 001146 3%: MOV #-1,WCT :SET TO XMIT 1 CHAR | 
003122 012737 007070 001106 MOV #OUTBUF, CAT 
003130 012777 O00105 176112 MOV #81T6+B1T2+81TO, acsR ;SET IE 
003136 005037 177776 CLR aePSH LO 
003142 012777 000001 176102 Mov #B1TO, aBAR it 
003150 012737 177777 001654 MOV #-1, COUNT S WAIT 
003156 005337 001654 25: DEC COUNT 
003162 001375 BNE 25 
003164 104003 ERROR :NO INT OCCURRED 
003166 000752 BR 35 SREPEAT IT | 
003170 162716 o00004 5S. SUB 84, (SP) :CALC INT VECT 
003174 011637 003230 MOV (SP), aSVECTOR STORE IT 
003200 012737 O00016 900014 Mov #16. a%14 SRESTORE BPT VECT 
003206 004737 003550 JSR 7, OVRLAY >. 42, HALT IN VECT AREA 
003212 000415 BR VECOK 
003214 004737 003550 6S: JSR 7, OURLAY ;PUT HALT..+2 IN VECTOR AREA 
003220 104000 TYPE SASK USER FOR RECEIVER INT. VECTOR 
003222 012556 WHERE [OF UNIT UNDER TEST 
003224 004537 003604 JSR 5, RECD :GET THE VECTOR & 
003230 o00000 VECTOR. 0 :PUT IT HERE 
003232 005737 003230 TST VECTOR | 
003236 001003 BNE VECOK 
002240 012737 00U300 003230 MOV #300, VECTOR :SET VECTOR = TO 02300 | 
003246 023727 002250 000300 VECOK: CHP VECTOR, #300 > 1S VECTOR HIGHER OR 
0¢3254 103003 BHIS _- VECOKB SEQUAL TO 0300 | 
003256 104000 VECOKA: TYPE ;TYPE '?° 
003260 013006 Mt 
003262 000667 BR OMPAR [ASK FOR ANOTHER VECTOR 
002264 023727 003230 000770 VECOKB: CMP VECTOR. #770 [1S VECTOR = TO oP 
003272 101371 BHI VECOKA ;LESS THAN 770 
003274 032737 000007 003230 BIT #7, VECTOR [LSB OF VECTOR MUST BE ALL O'S 
003302 001365 BNE VECOKA 
003304 013737 003230 001260 MOV VECTOR, @#CLKINT 
003312 062737 O00004 063230 ADD #4, VECTOR 
003320 013737 003230 001264 MoV VECTOR, a#XMNTINT 
;UNIT NUMBER 
002326 023737 000042 900046 ONMPARB: CMP ae42. aR4e SACTII7 
003334 001495 BEQ UNIT+2 :BR OIF YES 
003336 104000 TYPE 
003340 012651 WHICH 
003342 004537 002604 JSR 5. RECD :GET THE UNIT & 
003346 o00000 UNIT: 0 “PUT IT HERE 
003350 023727 003346 000017 CMP UNIT. #17 
003356 101403 BLOS 6:18 
003360 104000 TYPE 
003362 013006 Mt 
003364 000760 BR DMPARB 
003366 006337 003346 16 ASL UNIT 
003372 006337 003346 ASL UNIT 
003376 006337 003346 ASL UNIT 





MAINDEC-11-DZ20MB O0M11 DATA TESTS 


OZDMBC. P11 


003406 
003412 
003416 
003422 
003424 


003426 
003434 
003440 
OO3446 
003454 
003462 
003470 
003476 
003504 
003510 
003516 
003524 
003526 
003532 
003540 
003544 
003546 


003550 
003554 
003560 
003562 
003564 
003570 
002572 
003576 
003600 
003602 


003604 
003606 
003610 
003616 
003622 
003624 
003630 
003634 
003640 
003644 


22-NOV-77 15: 10 


012701 
042711 
063721 
005302 
001372 


012777 
005077 
012737 
012737 
012737 
012737 
012777 
012777 
005037 
012777 
012777 
000001 
005077 
143737 
005027 
022626 
000207 


012701 
012702 
010221 
005021 
020227 
001403 
062702 
000770 
000240 
000207 


010046 
005015 
012737 
105777 
100375 
117700 
142700 
116077 
122700 
001443 


001250 
000370 
003346 


001106 


000001 
000105 


175516 
001306 
177776 


0007300 
0002302 


000776 
000004 


000007 
175776 


175772 
000200 
175766 
000025 


175622 


007070 
001146 
001634 
001106 
175562 
175556 


175534 
175524 


O01634 


N03762 


MACY11 30(1046) 


25: BIC 


+ CALCULATE CHARA 
MOV 


3$: CLR 


»-ROUTINE TO LOAD TRAP/ INTERRUPT 


F 
22-NOV-77 


#CSR, %1 
#370, (1) 
UNIT, (1)+ 
%2 

2$ 


RACTER LENGTH 
#CAT, @BASREG 


acsrR 

#-1, OUTBUF 
#-1,WCT 

#- 1, d#CARNSK 
#OUTBUF, CAT 
#3%, CLK INT 
#340, ACLKLVL 
TUMNTAB 

#1, BAR 


#B1T6+B1T2+B1T9 


acsr 
TUMTAB. CARMSK 
PSW 


2 
15:32 PAGE 9-4 


;LOAD OUTBUF WITH CHAR TO BE TRANSMITTED 
;SET UP TO TRANSMIT 1 CHAR 

PRE SET THE CHARACTER MASK 

+1 CHARACTER ON LINE 0 

;LOAD RECEIVER INTERRUPT 

AND PRIORITY LEVEL 


START TRANSMITTING 
aCSR ;SET 1E£,MAINT AND GO BITS 
;WAIT FOR RECEIVER INTERRUPT 


>LOAD CHARACTER LENGTH MASK 
;RESTORE PROCEESSER TO PRIORITY O 
;RESTORE THE STACK POINTER 

*EXIT PARAMETERS ROUTINE 


VECTOR AREA WITH HALT.. +2. HALTS PROGRAM 


:AT ADDRESS OF TRAP/INTERPUPT VECTOR +2. 


OVRLAY MOV 
18: MOV 


#300, %1 


, SUBROUTINE TO RECE!VE DATA 
> THIS SUBROUTINE RECEIVES DATA FROM THE KEYBOARD (UP TO SIX OCTAL 
:;DIGITS AND PLACES THEM INTO THE ADDRESS FOLLOWING THE SUBROUTINE 


CALL (JSR 5,RECD) 


sERiT 


NO PEGISTER CONTENTS ARE DISTURBED 


SUBROUTINE TO INPUT DATA FROM TTY 


RECC: MoV 
1%: CLR 


2S: TSTB 


Rd, -(SP) 
(5) 
#7,CNT 
dTKCSR 
2$ 


aTKOBR, RO 
#200, R0 
RO. aTPOBR 
#25,.R0 

5% 


>CLEAR OLO DATA 
>SET CHAR COUNT 
‘WAIT FOR CHAP 


STRIP OFF PARITY 
ECHO CHARACTER 
PIS ITA YU 
BRANCH IF YES 


SEQ 0018 


wi 


= 


G 2 
MAINDEC-11-DZ2DMB DOM11 DATA TESTS MACY11 30(1046) 22-NOV-77 15:32 PAGE 9 


-5 | 
OZOMBC. P11 22-NOV-77 15:10 SEQ 0019 | 
003646 122700 000015 CMPB #15,R0 71S ITA <CRD 
003652 001415 BEQ 6$ ;BRANCH if YESS 
003654 142700 000060 BICB #60, R0 
003660 132700 000110 BITB #110,R0 + CHECK FOR Q-7 (8) 
003664 001031 BNE 7$ ; BRANCH IF NOT 
003666 006315 ASL (5) 
003670 006315 ASL (5) 
003672 006315 ASL (5) > SHIFT DATA 
003674 150015 BISB RO, (5) ; INSET NEW CHAR 
003676 005337 003762 DEC CNT 
003702 001422 BEQ 7$ ;ONLY 6 CHAR'S PLEASE 
003704 O00744 BR 2$ >NEXT CHARACTER 
003706 106777 175712 6S: TSTB aTPCSR 
003712 100375 BPL 6$ ;WAIT FOR — 
003714 012777 O00012 175704 MOV #12, dTPDBR a TVPE <LF 
003722 105777 175676 83: TSTB aTPCSR 
003726 100375 BPL 8$ >;WAIT FOR READY 
003730 005077 175672 CLR aTPOBR ;NEXT CHARACTER 
003734 105777 175664 38: TSTB aTPCSR 
003740 100375 BPL 95 ;WAIT FOR READY 
003742 005725 TST (F5)+ ;ADJUST RS 
003744 012600 MOV (SP)+,R0 >RESTORE RO 
003746 000205 RTS RS 
003750 104000 7$: TYPE 
003752 013006 M1 
003754 104000 5S. TYPE 
003756 012646 $CTLU 
003760 000712 BR 1$ >START OVER 
003762 000000 CNT: 0 
>ROUTINE TO CHECK FOR G BEING TYPED 
002764 022737 000176 001102 KBDINTT: CMP # SWREG. SWP 
003772 001021 BNE 1$ 
003774 023737 O00042 N0004%6 CMP 0842, d#46 >ACT11? 
004002 001415 BEQ 1$ >BR IF YES 
004004 605037 004076 CLR TMP 1 >CLEAP TEMP APEA 
004010 117737 175606 004076 MovB @TKDBR. TMP 1 -FETCH THE BUFFER 
004016 142737 000200 004076 BICcB #200. TMP 1 >STRIP OFF PARITY 
004024 122737 OO0007 004076 CMPB #7, TMP 1 -WAS IT G 
004032 001001 BNE 1$ ; NOP 
004034 104020 CNTLU ;GO CHANGE IT 
004036 000002 18. RTI EXIT 


;ROUTINE TO CHANGE CONTENTS OF SWREGILOC 17) 
004040 022737 000176 001102 CNTLUU: CMP a#SWREG. SWP 


004046 001023 BNE FAJAG 

004050 104000 TYPE 

004052 012617 SSWREG 

004054 004537 604620 JSR RS, OACNY > CONVERT TO ASCII 
004060 006176 SWREG 

004062 012626 SVALUE 


004064 000006 6 





H 2 
MAINDEC-11-D20MB OM11 DATA TESTS MACY11 30(1046) 22-NOV-77 15:32 PAGE 9-6 
DZOMBC. P11 22-NOV-77 15: 10 SEQ 0020 | 


004066 104000 TYPE | 

004070 012626 SVALUE 

004072 004537 003604 JSR 5, RECD ;GET THE TMP1 & | 

004076 000000 TMP1: 0 ;PUT IT HERE | 

004100 022737 00007 003762 CMP #7, CNT 

004106 001403 BEQ FAJAG 

004110 013777 004076 174764 Mov TMP 1, JSHR ; CHANGE CONTENTS OF SWREG | 

004116 000002 FAJAG: RTI 
| 
! 

004120 013746 000006 SUSWRR: MOV a%6. - (SP) ; SAVE VECTORS 

004124 013746 00004 Mov ae4, - (SP) 

004130 012737 004150 900004 MOV #15, a84 ;SET UP FOR TIMEOUT 

004136 022777 177777 174736 CMP #-1, ASHR ;REFERENCE HARDWARE SWITCH REGISTER 

004144 001402 BEQ 25 

004146 000407 BR 35 

004150 022626 15: CMP (SP) +, (SP)+ ; ADJUST STACK 

004152 012737 O.3176 001102 28: MoV #SWREG, SHR ;POINT TO SOFTWARE SWITCH REG 

004160 012737 000174 o01104 MoV #0 1SPREG, DISPLAY ;POINT TQ SOFT DISPLAY REG 

004166 012637 oO00cO4 38. nov (SP 1+, 084 ;RESTORE VECTORS 


Co41v2 012637 O0000e Mow (SP )+, aR6 


MAINDEC-11-O020MB OM11 DATA TESTS 


DZ0MBC. P11 


004200 
004202 
004210 
004214 
004216 
004222 
004226 
004232 
004234 
004236 
C04240 
004244 
004250 
004252 
004254 
004 256 
004262 
004254 
004 266 
004270 
004274 
004 300 
004302 
004 304 
004 306 
004314 
004316 
004322 


004324 
004332 
004336 
004 342 
004 346 
004352 
004 356 
004 362 
004 364 
004370 
004376 
004404 
004410 
004414 
004416 
004422 
004424 
0044 30 
0044 32 
004440 
OO4444 
004446 
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000240 
012777 
004737 
000240 
005077 
012537 
004537 
000000 
007070 
000100 
005037 
004537 
001306 
001307 
000177 
004537 
001306 
012374 
000020 
005037 
004537 
007234 
007235 
003077 
022737 
001002 
000137 
012504 


012737 
013701 
012721 
013721 
012721 
013721 
005737 
001402 
000137 
012777 
012737 
005037 
013700 
000240 
004537 
177700 
020460 
001375 
062737 
006337 
103361 
005760 


001106 
004532 


175026 
004232 
004706 


001306 
004706 


004706 


007234 
004706 


000006 
006570 


001306 
001260 
005134 
001262 
005326 
001266 
002154 


006374 
010101 
000001 
001646 
CO1646 
004730 
001146 


000002 
001274 


001146 


175046 


00214 


001300 


174652 
001274 


NO1le4o 
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; SUBROUTINE TO TRANSMIT ON ALL LINES WITH A DELAY BETWEEN TRANSMITTING 
;0N SUCCESSIVE LINES. THE DELAY FOR THE TEST IS SUPPLIED BY THE 
;CALLING JSR INSTRUCTION. DATA 1S CHECKED AFTER ALL 

+;LINES HAVE FINISHED TRANSMITTING 


DLYXMT: NOP 
MOV 


105: OPEN 


LNOBUF +1 


1599. 
CMP 
BNE 
JMP 
MOV 


33: TST 


#CAT, ABASREG 
7, 0#1DENT 


acsr 


(5)+, 10% 
5, d#BMOVE 


o* TUNTAB 
5. deBMOVE 


5 deBNove 


@*LNOBUF 
5. dRBMOVE 


#6. PRGNUM 
. +6 

PRG3A 
(5)+, %4 


BEGIN TEST 
;SET UP BASE REGISTER 

- ; TRANSMIT LINE # ON EACH LINE 
iN 


;GET MESSAGE ADDRESS 
;LOAL OUTPUT BUFFER 
;WITH DATA TO 

;BE TRANSMITTED 


; CLEAR TUMBLE 
; TABLE (200 
> BYTES) 


>CLEAR CHARACTER COUNT TABLE 


>CLEAR ALL 

>LINE'S !NPUT 

; BUFFERS 

>(16. BUFFERS OF 100. CHARS. EACH) 


;GET # OF CHARACTERS TO TRANSMIT BEFORE 
; TRANSMITTING ON NEXT LINE 


STUMTAB, DRTTPTR ; INITIALIZE TUMBLE TABLE POINTER 


@eCLKINT. %1 
@RINT, (1)+ 
@eCLKLVUL, (1)+ 
#TINT, (1)+ 

Oe XMTLVL. (10+ 
PRGNUM 

. +6 

PRGIA 


#B1T12+B1T6+B1TO, aCSP 


#i, adel INBIT 
el INE 
LINE, «0 

5, d#XMitTe 
%4,WCT(O) 
23 


#2Z,LINE 
LINBIT 


1$ 
WOT(O) 


GET RECEIVER VECTOR ADDRESS 
;LOAD RECEIVER VECTOR 

;AND PRIORITY LEVEL 

;LOAD TRANSMITTER VECTOR 
AND PRIORITY LEVEL 

;RUNNING PROGRAM 0? 


;RETURN TO PROGRAM 1 CODE 
SET 1E & GO BITS 


>LINE # X2 TO RO 
> NOP 


; TRANSMIT 64 CHARACTERS 
7;ON LINE # AS SPECIFIED IN ADDRESS LINE 
;WAIT FOR THE WORD COUNT TO DEC TO THE 
;CORRECT VALUE BEFORE STARTING NEXT LINE 
;FORM NEXT LINE NUMBER 
;SHIFT LINE BIT 
;START NEXT LINE 
/>WAIT FOR LAST LINE TO FINISH 


SEQ 0021 


ee ——— —  —— —————— 
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004452 
004454 
004462 
004466 
004470 
004476 


004500 
004504 
004510 
004514 
004516 
004520 
004522 
004526 
004536 


004532 
004536 
004544 
004550 
004556 
004564 
004572 
004600 
004604 
004606 
004612 
004614 
004616 


004620 
004622 
004626 
004630 
004632 
004634 
004640 
004644 
004656 
004652 
004660 
004664 
004670 
004674 
004676 
004700 
004702 
004704 
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001375 
042777 
062700 
001375 
017737 
001410 


"005037 
005077 
005077 
104015 
000403 
000240 
004737 
022626 
104012 


005037 
012737 
013702 
016262 
012762 
053777 
062737 
006337 
103357 
005777 
001375 
006240 
000267 


104013 
013537 
012501 
012502 
060201 
013703 
042703 
062703 
110341 
042737 
006037 
006037 
006037 
065302 
001356 
104014 
000205 
000000 


177400 
000001 


174556 


001632 


174540 © 


174536 


005026 


001646 
000001 
001646 
012414 
177772 
001274 
000002 
001274 


174440 


004704 


004704 
177770 
000060 


000007 
004704 
004704 
004704 


174566 


001630 


001274 


001106 
001146 
174460 
001646 


004704 
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BNE 3$ 
BIC #177400, dCSR * CLEAR ODD BYTE OF CSR 
315: ADD #1,R0 WAIT FOR RECEIVER 7 RECEIVE 
BNE 315 SALL TRANSMITTED DATA 
MOV BAR, RCVDAT ;GET AND TEST BAR CONTENTS 
BEQ 4§ ;BRANCH IF IS CLEAR 
CLR XMTDAT 
CLR acsre 
CLR dBAR 
ERROR1 ;ERROR: BAR DID NOT CLEAR IN SUFICIENT TIME 
BR 5$ ;EXIT TEST 
4S; NOP 
JSR 7,8 CHKDAT ;GO TEST DATA 
5S: CMP (6)+, (6)+ ;RESET THE STACK 
SCOPE ; SCOPE 


+ aah TO TRANSMIT ON EACH LINE !TS LINE NUMBER (CRLF XX CRLF). 


1DEN CLR @#L INE GET LINE NUMBER 0 
MoV #1, d#LINBIT >GET LINE BIT 
1$: Mov LINE, %2 
Mov 10(2), CAT(2) LOAD CAT 
MoV #-5,WCT(2) LOAD WORD COUNT 
BIS LINBIT, aBAR >SET BAR BiT 
ADD #2,L INE >FORM NEXT LINE NUMBEP 
ASL LINBIT >FORM NEXT LINE BIT 
BCC 1$ BRANCH IF NOT DONE 
23: TST aBAR »WAIT FOR BAR TO CLEAP 
BNE 2$ 
NOP 
RTS ? 7EXIT SUBROUTINE 
;OCTAL TO ASCI! CONVERT ROUTINE 
GACNV: SAVREG >SAVE REGISTERS ON THE STACK 
MOV a(5)+, 28 GET OCTAL VALUE. 
MOV (5)+,%1 >GET DESTINATION ADDR. 
MOV (5)+,%2 :GET CONVERT COUNT. 
ADD %2, “1 ;DEVELOF ADDR TO STORE 1ST CHAR. 
1$: MoV 2$,%3 
BIC #177770, %3 ; ISOLATE LEAST SIGNIFICANT DIGIT. 
ADD #60, %3 “CONVERT DIGIT TO ASCII. 
MOvVB %3,-(1) > STORE ASCII CHRRACTER 
BIC #7, 23 
ROR 2 
ROR 2 
ROR 23 
DEC %2 *DONE ALL D'GITS? 
BNE 1$ ;BRANCH !F NOT DONE 
RSTREG >;RESTORE THE PEGISTEPS 
RTS 2§ ;DONE. EXIT 
-$ OPEN 


; SUBROUTINE 7O MOVE A VARIABLE NUMBER 9F BYTES 





SEQ 0022 | 






————— 
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MACY11 30(1046) 
SEQ 0023 


004706 104013 BMOVE: SAVREG + SAVE REGS 

004710 012501 MOV (5)+,%1 ;GET“FROM"ADORESS 
004712 012502 MOV (5)+,%2 ;GET"TO"ADDORESS 
004714 012503 MOV (5)+,%3 ;GET COUNT 

004716 112122 1$: MOVB (1)+, (2)+ MOVE BYTE 

004720 005303 DEC %3 ;DECREMENT COUNT 


004722 001375 BNE 1$ ;BRANCH IF NOT DONE. 
004724 104014 RSTREG ;RESTORE REGS. 
004726 000205 45 ;DONE EXIT 
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004730 
004732 
004734 
004740 
004746 
004752 
004760 


004766 
004770 
004772 


004774 
004776 
005002 
005006 
005010 
005014 
005020 
005022 
005024 


005026 
005030 
005032 
005034 
005040 
005042 
005046 
005052 
005056 
005062 
005070 
005076 
005104 
005106 
005110 
005114 
0051106 
005120 
005122 
005126 
005130 
005132 


0051 34 
005136 


000240 
010046 
013700 
012760 
012560 
053737 
053777 


012600 
000240 
000205 


010046 
005037 


104013 
000240 
005001 
012702 
005003 
010337 
012237 
005337 
005237 
117737 
116137 
043737 
104004 
005291 
020127 
001360 
005001 
005203 
020327 
002745 
104014 
000207 


000240 
104013 


001646 
007070 
001146 
001274 
001274 


00127 
00164 


001274 
000002 


012334 


001646 
001650 
001650 
001650 
174562 
007070 
001634 


000100 


000020 


001106 


001270 
174264 


001630 
001632 
001632 


MACY11 30(1046) 
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; SUBROUTINE TO TRANSMIT DATA. SUBROUTINE CALLED EY 


; JSR 5S, XMITO 
XMITD: NOP 
MoV %0, -(SP) ; SAVE ~ ON THE STACK 
MOV a*L INE, %0 ;GET LINE 
MOV #OUTBUF. CAT(O) ToAD. FIRST CHAR ADDRESS IN CAT 
Mov (5)+,WCT(O) ;LOAD WORD COUNT INTO LINE'S TABLE ADDRESS 
BIS OSL INBIT, A#BARIM; LOAD LINE POSITION INTO BAR IMAGE 
BIS LINBIT, dBAR +; START Me panes ON LINE SPECIFIED 
7 IN LINBI 
Mov (SP)+, %0 ;RESTORE RO 
NOP 
RTS 5 ;EXIT 
;SUBRCUTINE TO FORM LINE BIT POSITION WITH THE LiNE # IN LINE 
GTL!NB: MOV %0,-(SP) ; SAVE RO ON THE STACK 
CLR aeL INBIT 
MoV @#L INE. %0 + GET LINE 
SEC ;SET CARRY 
1$ ROL LINBIT ; SHIFT LINE BIT 
SUB #2-%0 ; SUBTRACT 2 FROM LINE NUMBER 
BPL 1$ 
MoV (SF +, %0 >RESTORE F9 
PTS 7 sEXIT 


; SUBROUTINE TO CHECK TRANSMITTED DATA 


CHKDAT: SAVRES 


NOP 


28: INC 


PINT: 


8 
RSTREG 
RTS 


/RECEIVER INTERRUPT SERVICE ROUTINE 
NOP >BE 
SAVREG 


* SAVE THE REGISTERS ON THE STACK 
NOP 


NO 

%1 CLEAR CHARACTER COUNT 
# INTAB. %2 :GET ADDRESS OF LINE'S INPUT BUFFER 

%3 ;ADDRESS :GET LINE COUNT 
%3. #L INE ;MOVE LINE # TO LINE 

(2)+,d#LINBUF ;GET LINE'S INPUT BUFFER ADDRESS 
L INBUF ;SUBTRACT 1 FROM LINE'S INPUT BUFFER ADDRESS 
L |NBUF ; INCREMENT LINE'S INPUTT BUFFER ADLRESS 


OL INBUF, d#RCYDAT GET RECEIVED CHARACTER 
OUTBUF (1), XMTDAT; GET TRANSMITTED CHARACTER 
OF CARMSK, XMTDAT ; CLEAR UNTRANSMITTED BITS 

> COMPARE CHARACTERS 


%1 ; INCREMENT CHARACTER COUNT 
%1. #04 ALL CHARACTERS BEEN COMPARED 
2 >GO CHECK NEXT CHAR. IF NOT 
“1 >CLEAR CHARACTER COUNT 

% > INCREMENT LINE COUNT 

%3, #16 7ALL LINES CHECKED? 


>BRANCH IF ALL LINES NOT CHECKED 
*RESTORE REGISTERS 
? >EX1T SUBROUTINE 


GIN 
> SAVE THE REGISTERS ON THE STACK 


SEQ 0024 


MAINDEC-11-OZ0MB OM11 DATA TESTS 
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005140 
005144 
005159 
005152 
005154 


005256 
005262 


005264 
005266 


005270 
005274 
005276 
005302 
005304 
005306 
005314 
005320 
005322 
005324 


005326 
005330 
005336 
005340 
005342 
005350 
005354 
005356 
005364 
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013701 


060337 
113777 
000240 
016437 
003405 
010437 
104015 


000005 
104012 


022701 
001002 
012701 
005721 
060724 
042777 
010137 
104014 
000240 
000002 


000240 
032777 
001404 
104003 
042777 
005777 
100003 
042777 
000002 


001300 
001272 


001272 


160400 
001273 


012334 
012374 
012374 
001650 
001272 
001146 


001632 


001504 
001304 


000200 
001300 


060000 


660000 
173674 


100000 


001272 


001650 


174404 
001630 


173734 


173712 


173700 


173664 
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> TRANSMITTER INTEPRUPT SERVICE wy thy 


SEQ 0025 | 
MoV DeTTPTR, %1 ;GET TUMBLE TABLE POINTER 
MOV (1), TTDAT ;GET TUMBLE TABLE ENTRY 
BNI 2% ;BRANCH IF VALID DATA ENTRY 
ERROR ERROR! FALSE INTERRUPT | 
BR 6$ SEXIT 
15: MOV (1), a TTOAT CET TUMBLE TABLE ENTRY 
BEQ 6$ ;GO TO EXIT IF NO DATA ENTRY 
BNI 23 [BRANCH IF VALID DATA ENTRY 
ERROR ne ; ERROR! NO VALID DATA ENTRY INDICATOR 
25: CLR (1) ;CLEAR TUMBLE TABLE ENTRY 
BIC #160400, a#TTOAT ; CLEAR ALL BUT CHAR. & LINE # 
MOVB TTDAT+1, %2 ;PUT LINE # IN R2 (LINE WILL SE IN LSH) | 
MOV %2, %4 
MoV INTAB (2). d#L INBUF :GET LINE'S INPUT BUFFER ADDRESS 
ASR %2 ; SHIFT LINE # 
CLR %3 
MOVB CNTTAB(2).%3 GET LINE'S RECEIVED CHAR. COUNT 
INCB. = CNTTAB(2) ; INCREMENT CHARACTER COUNT 
ADD %3, L INBUF ;FORM ADDRESS WHERE CHAR. 1S TO BE STORED 
. nOvB TTDAT, aL INBUF ; STORE CHAR. IN LINE'S INPUT BUFFER 
: N NO 
MoV WCT(4),RCVDAT  ;GET TRANSMITTERS WORD COUNT 
BLE 4S ;BRANCH IF WORD COUNT IS 0 OR NEGATIVE 
MOV %4, XMTDAT ;GET LINE # OF FAILING LINE 
ERROR1 ;ERROR! INCORRECT WORD COUNT IN 
-TYPE OUT SHOWS FAILING LINE # AND FAILING LINE'S WORD COUNT 
RESET ;STOP THE DM11 
SCOPE /EXIT TEST 
4s, CMP #TUMTAB+176.%1 : 1S THE TUMBLE TABLE POINTER AT THE 
BNE 55 ; THE END OF THE TABLE 
MOV #TUMTAB-2, %1 :RESET POINTER 
5S: TST (1)+ > INCREMENT POINTER 
BR 15 ;GO0 CHECK NEXT ENTRY 
6S: BIC #8177, acSR ;CLEAR RECEIVER DONE FLAG 2 
. MOV %1, TTPTR ; SAVE POINTER Tor 
RSTREG ;RESTORE THE REGISTERS 
> NOP 
RTI [EXIT SERVICE ROUTINE 
TINT: NOP ; BEGIN 

BIT #B1T144B1T13, aCSR; TEST ERROR FLAGS 

BEQ 15 ;BRANCH IF NO ERROR FLAGS 

ERROR SERROR! ERROR FLAG IS SET 

BIC #21T14+B1T12. acse: CLEAR ERROR FLAGS 
15: TST acsr TEST READY FLAG 

BPL 25 :BRANCH IF READY 1S CLEAR 

BIC #B TIS. aCSR >CLEAR READY FLAG 
28 RTI D 


N 2 < Aa ae 
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DZOMBC. P11 22-NOV-77 15: 10 SEQ 0026 
005366 104000 PRGO: TYPE 
005370 013127 PRGOM 
005372 012737 005426 001516 PRGOA: MoV #RTO, KSTART GET ADDRESS OF FIRST TEST 
005400 005037 001522 CLR RTNNO ;CLEAR ROUTINE # 
005404 000137 002214 JMP SRSET 
005410 012737 005426 001516 PRGOR: MOV #RTO. KSTART GET ADDRESS OF FIRST TEST 
005416 005037 001522 CLR RTNNO CLEAR ROUTINE NUMBER 
005422 000137 002246 JMP GETRDY +GO AND START PROGRAM 
; HAASEOKAAAESUSUNEESSQNAEES SSNRNESESUANEESSSAAEESBEAAEES ALLE ATES 
005426 000000 RTO: 0 ;ROUTINE # 0 x 
005430 005446 RT1 ;RODR OF NEXT ROUTINE. f 
005432 g0cdd2 2 ; ITERATION COUNT x 
005434 005436 RTOA + SCOPE ENTRY POINT. x 
000000 X=X+1 


> RXKKAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AREA AAA AAA AAA AAA ARTE 
; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


NEXT LINE. 
00543¢ 004537 004200 RTOA: JSR 5. DL YXMT GO DO TEST. 
005442 013451 MSG1 + TRANSMIT THIS MESSAGE & 
005444 900000 0 ;DELAY THIS MUCH BETWEEN LINES 
o$2$925699599580559059555550 5503502502 o9 0929925225002 5 20502 00200028 08: 
005446 000001 RT1: 1 ;ROUTINE # 1 2 
005450 005466 RT2 ADDR OF NEXT ROUTINE. x 
005452 000002 2 + ITERATION COUNT x 
005454 005456 RTIA SCOPE ENTRY POINT. x 
000001 X=X+1 


moe 5 2056555 0090005355520535559502255 9520922559592 2 2922959 0 9 22220200 08 8 0 8 | 
TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


; >NEXT LINE. 
005456 004537 004200 RTIA: JSR 5, O0LYXMT ;GO DO TEST. 
005462 013451 MSG1 ; TRANSMIT THIS MESSAGE & 
005464 177740 «32. ;DELAY THIS MUCH BETWEEN LINES 
PTTITUTETTTTTTITTTTTTITITETIT TTT T Tete Tete t tee t ete ttt 
005466 000002 RT2: 2 ;ROUTINE # 2 x 
005470 005506 RT3 ; ADDR OF NEXT ROUTINE. x 
005472 000002 2 >; ITERATION COUNT x 
005474 605476 RT2A ; SCOPE ENTRY POINT. x 
000002 X=X+1 
sao ooo Oooo ogg OOOO IOI III III III I 
] ; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
;NEXT LINE. 
005476 004537 004200 PT2A: JSR 5.0L YXMT ;GO DO TEST. 
% 905502 013-51 : MSG1 ; TRANSMIT THIS MESSAGE & 
-* °905504% 177/20 -48. ;DELAY THIS MUCH BETWEEN LINES 
7 nga amc ee tment mr 1 oe meemmme reenact 
005506 000003 RT3: 3 ;ROUTINE # 3 x 
00551C 005526 RT4 ; ADDR OF NEXT ROUTINE. ¥ 
005512 000002 2 ; ITERATION CQUNT x 
005514 005516 RT3A ;SCOPE ENTRY, POINT. ¥ 
000003 X=X+1 


oeoe0000es00000000000000000505005302235 325299025325 22252555555235 222533) 
: TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
>NEXT LINE. 

005516 004537 004200 PT 3A: JSR 5.0L ¢xXmT ;GO 00 TEST 

005522 013451 MSG! > TRANSMIT THIS MESSAGE % 


al 
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DZOMBC. P11 
005524 


005526 
005520 
005532 
005534 


005536 
005542 
005544 


o0S546 
905550 
005552 
o0s554 


005556 
005562 
005564 


005566 
005570 
005572 
005574 


005576 
005602 
005604 


005606 
005610 
005612 
005614 


005616 
005622 
005624 


005626 
005636 
005632 
005634 
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177710 


oo0co4 
005546 
000002 
0055236 
co0v004 


004537 
013451 
177704 


000005 
005566 
000002 
005556 
000005 


004537 
013451 
177702 


000006 
005606 
000002 
005576 
o00ccde 


004537 
013451 
177701 


000007 
005626 
000002 
005616 
060097 


004537 
013451 
177700 


000010 
005646 
000002 
005636 
000010 


-56. ;DELAY THIS MUCH BETWEEN LiNES 
; NAAAEEEERAAESESSNANRESSENNNEESESRAAES EE EEEAAATES EDD AAAT EEO OAALEEEES 
x 


RT4: 4 ;ROUTINE & 
RTS ;ADOR OF NEXT ROUTINE. * 
z + ITERATION COUNT x 
abe ;SCOPE ENTRY POINT. x 
=X+ 


5 MXKKAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA EAA EK 
; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


>NEXT LINE. 
N04200 RTYA: JSR 5, DLYXMT ;GO DO TEST. 
MSG1 ; TRANSMIT THIS MESSAGE & 
-60. ;DELAY THIS MUCH BETWEEN LINES 
Atititsestitiiteitistsistsristttitititiciststistitstestiis ites esis ss 
RTS: 5 ;ROUTINE & 5 x 
RT6 ;ADDR OF NEXT ROUTINE. x 
2 > ITERATION COUNT x 
RTSA > SCOPE ENTRY POINT. x 
X=X+1 


229 09900500000009000000005950055 0099s 22 299299992239 22 0292205250909 0 2 8 | 
> TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


»>NEXT LINE. 
004200 RTSA: JSR 5, OLYXMT GO DO TEST. 
MSG1 ; TRANSMIT THIS MESSAGE & 
-62. ;DELAY THIS MUCH BETWEEN LINES 
MTTTTTTTTTTTTTT TTT TTT Tete ttt tite tttt ttt tiie ttt t sitet 
PTo: 6 ;ROUTINE # 6 t 
RT? ; ADOR OF NEXT ROUTINE. 4 
2 ; ITERATION COUNT x 
RTOA > SCOPE ENTRY POINT. | 
X=X+1 


Sooo oo ooo oo gOS IOOOIOIOOIOIOOOIOOIO IDIOT 
; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


NEXT LINE. 
004 200 RTOA: JSR 5,OLYXMT GO DO TEST. 
MSG1 > TRANSMIT THIS MESSAGE & 
-63 ;DELAY THIS MUCH BETWEEN LINES 
o0000025000000020605285522593 2002 $2 %%o 3999922392235 9 02939 9235902399099 8 | 

RT?. ? ;ROUTINE # 7 a 
RT10 : ADOR OF NEXT ROUTINE. x 
2 ; ITERATION COUNT x 
RT7A SCOPE ENTRY POINT. x 
X=X+1 


ess 0oe5o0050000000000000005000005995599992 922902 89092359 2900592020008) 
> TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


>NEXT LINE. 
G04 200 PT7A. JSR 5. OLYXMT ;GO DO TEST 

MSGi ; TRANSMIT THIS MESSAGE & 
-64 ;DELAY THIS MUCH BETWEEN LINES 

OE SCS TOSSES OOS SEES OS 50500005 000000500000000000000000050055002829030 9 099 8 | 

PT10- 10 ;ROUTINE # 10 * 
PT1i1 ; ADDR OF NEXT ROUTINE. t 
2 ; ITERATION COUNT t 
RTiCA ;SCOPE ENTRY POINT. ¥ 
X=X+1 


meee ee tots eb005050000000000000000205250085 905932552 55050 5555552523252 00 3 | 





SEQ 0027 
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005636 
005642 
005644 


005646 
005650 
005652 
005654 


o05656 
005662 
005664 


005e66 
005670 
005672 
005674 


005676 
005702 
005704 


005706 
005710 
005712 
005714 


005716 
005724 


005726 
005730 
005732 
005734 


005736 
005742 
005744 


005746 
005750 
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004537 
013552 
177740 


000011 
O0C5666 
000002 
005656 
000011 


004537 
013552 
177720 


000012 
005706 
000002 
005676 
000012 


004537 
013552 
177710 


000013 
005726 
000002 
005716 
000013 


004537 
013552 
177704 


000014 
005746 
000002 
005736 
000014 


004537 
013552 
177702 


000015 
00576 


004200 


004200 


004 200 


004200 


004200 
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TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
aTiOR: JSR 5, OLYXMT ;GO0 DO TEST. 

MSG2 S TRANSMIT THIS MESSPGE & 

-32. SDELAY THIS MUCH BETWEEN LINES 
0000050000000 0 
x 


RT11: 11 ;ROUTINE # 11 
RT12 S ACOR OF NEXT ROUTINE. x 
2 ; ITERATION COUNT ¥ 
RT11A ; SCOPE ENTRY POINT. x 
X=X41 


re O0$0506050505555050500050000005050606055050325292532235 9090303039509 23 29 | 
; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
;NEXT LINE. 
RT11A: JSR 5, DLYXMT GO DO TEST. 

MSG2 ; TRANSMIT THIS MESSAGE & 

-48. ; DELAY THIS MUCH BETWEEN LINES 
; SERRSRRARERSSARSSEASLENSTERES SESSAESSAESSRSERSSSRS SAS SASSSANSS ASIEN SS 
x 


RT12: 12 ;ROUTINE & 12 
RT13 ;ADOR OF NEXT ROUTINE. x 
2 ; ITERATION COUNT x 
RT12A ;SCOPE ENTRY POINT. x 
X=X+1 


Sooo oOo ooo ooo OOOO IOI n 
: TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
>NEXT LINE. 
PT12A: JSR 5, OLYXMT ;GO DO TEST. 

MSG2 ; TRANSMIT THIS MESSAGE & 

-56. ;DELAY THIS MUCH BETWEEN LINES 
WITTTTTITTT TTT ttt tet ettt esti titti ttt itisttteetstsces 
« 


RT13: 13 ;ROUTINE # 13 
RT14 ; ADDR OF NEXT ROUTINE. x 
2 > ITERATION COUNT ¥ 
RT13A ;SCOPE ENTRY POINT. x 
X=X+1 


ese ete e testes eee tet eset tttbttests 05550505) '$25053 2320258955702 0 5520 8 o | 
; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


NEXT LINE. 

RTI3A: JSP 5.0L YXMT GO DO TEST. 
MSG2 > TRANSMIT THIS MESSAGE & 
-60. ;DELAY THIS MUCH BETWEEN LINES 

Sp e000 00000000000 

PT1Y. 14 ;ROUTINE # 14 t 
RT15 ; ROOR OF NEXT ROUTINE. 1 
2 > ITERATION COUNT t 
RT14A SCOPE ENTRY POINT. & 
X=X+1 


| RANA ARERAA AERA AA ES EES A ARTEL AERA AAA EASA E EASA EES ETRE EET EERE TERETE 
;TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


;NEXT LINE. 
RTIWA: JSR 5, OLYXMT GO 00 TEST. 
MSG2 ; TRANSMIT THIS MESSAGE & 


-62. ;DELAY THIS MUCH BETWEEN LINES 
SNUEUOEAAAAADSOOOANAE AES SEE AAEAETED EE DTAAAEEEDE ETAT ETE EE LEA TAT EY 
PT15: 15 ROUTINE # 15 ‘ 

RTlo - ADOR OF NEXT ROUTINE ‘ 


SEQ 0028 





MAINDEC-11-O0Z0MB OM11_ DATA TESTS 


DZOMBC. Pit 


005752 
005754 


005756 
005762 
005764 


005766 
005770 
005772 
005774 


ocs77e 
006002 
006004 


006006 


006014 


006016 
006022 
006024 


006026 
006030 


006032 
006034 


000036 


006054 


00605¢ 
006062 
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000002 
005756 
000015 


004537 
013552 
177701 


000016 
006006 
00c002 
005776 
000016 


004537 
013552 
177700 


000017 
006026 
000002 
006016 
900017 


004537 
013652 
177720 


000020 
006046 
000002 
006036 
000020 


004537 
013652 
177704 


004537 
013652 


004200 


004 200 


004200 


004200 


004200 
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2 ; ITERATION COUNT x 
tbe ; SCOPE ENTRY POINT. x 
X=X+ 
e055 55555595555555505500550055005000000005500050058595559959 99522290903! 
‘et TO a: ON EACH LINE WITH A DELAY BEFORE STATING THE 
>NEXT LIN 
RT1SA: JSR 5, OL YXMT ;GO DO TEST. 
MSG2 ; TRANSMIT THIS MESSAGE & 
-63. ;DELAY THIS MUCH BETWEEN LINES 
Miritittttitittitttttisttiiisttisttitstitessitscsttistissc iirc s tress ties 
x 


RT16: 16 ;ROUTINE # 16 
RT17 ;ADOR OF NEXT ROUTINE. x 
2 ; ITERATION COUNT s 
RT16A ; SCOPE ENTRY POINT. * 
X=X+1 


east t 2050 o0000000000000005000006000552525232523232222 9022503222505 29 29 | 
; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
>NEXT LINE. 
RT16A: JSR 5.0L YXMT GO DO TEST 

MSG2 ; TRANSMIT THIS MESSAGE & 

-64. ;DELAY THIS MUCH BETWEEN LINES 
BITINITITITTTTTT TTT tttt ttt ett titi ti ettt ee, 
x 


RTI?: 17 ;ROUTINE # 17 
RT20 ;ADOR OF NEXT ROUTINE. x 
2 ; ITERATION COUNT 7 
RT17A ; SCOPE ENTRY POINT. x 
X=X+1 


meses ete t et ets et tttetstttetet50525t5 5550502225232 9 2925928 23 23009002) 2 2: 
; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


NEXT LINE. 
RT17A: JSR 5, OL YXMT GO DO TEST. 
MSG3 ; TRANSMIT THIS MESSAGE & 
-4S. ;DELAY THIS MUCH BETWEEN LINES 
2000000000000 1001001100100 10700800 0 
PT 20: 20 ;ROUTINE # 20 x 
RT21 ;ADOR OF NEXT ROUTINE. t 
2 ; ITERATION COUNT ‘ 
RT2GA SCOPE ENTRY POINT. f 


X=X+1 
SOOO IOI 
TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
;NEXT LINE 


PTZ0A: JSR 5.0L YXMT >GO OO TEST. 
MSG3 >; TRANSMIT THIS MESSAGE & 
-60. ;DELAY THIS MUCH BETWEEN LINES 
MTitittitttitittitittitiiististittitcitittresis terete ieee eeceese ass, 
RT21: 21 ;ROUTINE # 21 x 
RT22 S ADOR OF NEXT ROUTINE. k 
2 ; ITERATION COUNT * 
RT21A ; SCOPE ENTRY POINT. * 
K=X¢1 


PPTTTTTTTT TTT ttt etititittit itis iti tists ttt itet esse retestitesi tess. 
TEST TO TRANSIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


“NEXT L INE 
RT21A: JSP 5.0L YXMT GO 00 TEST 
MSG3 / TRANSMIT THIS MESSAGE & 


SEQ 0029 | 


| 
| 


MAINDEC-11-DZ2D0MB OM11 DATA TESTS 


OZOMBC. P11 22-NOV-77 15: 10 


006064 


006066 
006070 
006072 
006074 


006076 
006102 
006104 


006106 
006110 
000112 
O0m114 


006116 
006122 


006124 . 


006126 
006130 
006132 
006134 


006136 
006142 
006144 


006146 
000150 
006152 
006154 


006156 
006162 
006164 


006166 
006170 
006172 
006174 


177701 


000022 
006106 
000002 
006076 
000022 


004537 
013652 
177700 


000023 
006126 
600002 
006116 
000023 


004537 
013752 
177710 


000025 
006166 
000002 
006156 
000025 


004537 
013752 
177702 


000026 


004200 


004200 


004200 


G04 20C 


. © 
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-63. ;DELAY THIS MUCH BETWEEN LiNES 
2000000 2000 OO OOOO 
722: 22 ;ROUTINE & 22 v 


RT23 ; ADDR OF NEXT ROUTINE. x 
2 ; ITERATION COUNT x 
he oes ;SCOPE ENTRY POINT. x 
X=X+1 


O09 6050000000005000000000060000000000000500005050000999909099 9099259999 9 | 
atee TO sone ON EACH LINE WITH A DELAY BEFORE STATING THE 
>NEXT LINE. 
RT22A: JSR 5, DOL YXMT ;GO DO TEST 

MSG3 ; TRANSMIT THIS MESSAGE & 

-64 ;DELAY THIS MUCH BETWEEN LINES 
; AAMSASASSHANSSARESSANESSANESSASSSAREESORSSSANEDSOAEOSANTESNNE OSNATSNATS 
T23: x 


ROUTINE # 23 
RT24 ;ADOR OF NEXT ROUTINE. ¥ 
2 ; ITERATION COUNT x 
RT23A ;SCOPE ENTRY POINT. + 
X=X+1 


$205 000006000000090000000000000955 9995522299923 9 222539025229 305 20590809 | 
; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


>NEXT LINE. 
RT23A: JSR 5, DL YXMT GO DO TEST. 
MSG4 ; TRANSMIT THIS MESSAGE & 
- 32. ;DELAY THIS MUCH BETWEEN LINES 
sSUMRAAAASEANATESSSN1KS SONNE SESAT AES OAAAEESEDAAATS EDEN TD OAAETS 
RT c4 24 ROUTINE # 24 
RT25 ; ADDR OF NEXT ROUTINE. : 
2 , ITERATION COUNT x 
RT24A SCOPE ENTRY POINT. x 
XeX+1 


0 000000600550500005000000550000200952 2995322999222 5 229099020229 05 50298 8 | 
>TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


;NEXT LINE 

RT24A: JSR 5,DLYXMT ;GO DO TEST. 
MSG4 ; TRANSMIT THIS MESSAGE & 
-56 ;DELAY THIS MUCH BETWEEN LINES 

TTTTITIUTETTTTTTITETITI TIT TT ETT TTT TTT eter t tees 

RT 25: 25 >;ROUTINE #& 25 x 
RT26 ;ADDR OF NEXT ROUTINE. x 
2 > ITERATION COUNT x 
RT25A ;SCOPE ENTRY POINT. | 
X=X+1 


Oooo ooo III III III IOI III 
> TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
>NEXT LINE. 
RT25A: JSR 5, OLYXMT :GO DO TEST. 

MSG4 ; TRANSMIT THIS MESSAGE & 

-62. ;DELAY THIS MUCH BETWEEN LINES 
ASUUUUAAA YES UONAAS ASSEN EEA EEEAAAEAEEDOAAALA OAT TT EP AATATE 


RT2 26 26 ROUTINE # 26 x 
R127 S ADOR OF NEXT ROUTINE. x 
2 > ITERATION COUNT | 
RT26A ; SCOPE ENTRY POINT. * 
X=X+1 


RERPRATEATAL AAT RAAT ATR ATEAARARAAE 


SEQ 0030 


. 
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006176 
006202 
006204 


006206 
006210 
006212 
006214 


006216 
000222 
Q0e22 


006226 
006230 
006232 
006234 


006236 
006242 
006244 


C06246 
006250 
006252 
006254 


006256 
006262 
006264 


006266 
006270 
006272 
006274 


006276 
006302 
006304 


006306 
006310 
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004537 
013752 
177700 


000027 
006226 
000002 
006216 
000027 


004537 
014052 
177720 


000030 
006246 


000030 


004537 
014052 
177710 


000031 
006266 
000002 
006256 
000031 


604537 
014052 
177704 


000032 
006306 
000002 
006276 
000032 


004537 
014052 
177702 


000033 
00632 


004200 


004 200 


004 200 


004 200 


004200 
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Be i By TO # eye's ON EACH LINE WITH A DELAY BEFORE STATING THE 
RT26A: nse 5, DLYXMT GO DO TEST. 
MSG4 ; TRANSMIT THIS MESSAGE & 
“6A. ;DELAY THIS MUCH BETWEEN LINES 
ettittttttttitttttrittttttttettttitit ttt tit te ttt tttittttt itt t tsi t tits s 
RT2?: 27 ROUTINE # 27 x 


+ACOR OF NEXT ROUTINE. * 
2 + ITERATION COUNT * 
RT27A SCOPE ENTRY POINT. x 


X=X+1 
Pe So 9909550 05900099 900090 005095905 00505999 oo 09090909099 098 0069308099 09 99 8 | 
; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
;NEXT LINE. 
RT27A: JSR 5,DLYXMT +GO DO TEST. 

MSGS ; TRANSMIT THIS MESSAGE & 

-48. >DELAY THIS MUCH BETWEEN LINES 
SO 20 20 OOOO OOOO SOOO Ena 
x 


RT30: 30 ;ROUTINE # 30 
RT31 ; ROOR OF NEXT ROUTINE. t 
2 > ITERATION COUNT t 
RT3OA + SCOPE ENTRY POINT. * 
X=X+1 


$$ 95999006595 055 6599099955 9999920 022055902 2099900289390 02 8839502288888 | 
> TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
NEXT LINE. 
RT3OA: JSR 5, DLYXMT GO DO TEST 

MSGS > TRANSMIT THIS MESSAGE & 

-56. >DELAY THIS MUCH BETWEEN LINES 
, SNSUOAAAASSSUONNANE TSS OOCA NEE EESSSAAERESS SEO AANEES ED DONT TEES EATS 
x 


PT 31: 31 ;ROUTINE &# 31 
RT32 [ADDR OF NEXT ROUTINE. x 
2 > ITERATION COUNT x 
RT31A > SCOPE ENTRY POINT. x 
X=X+1 


$000 0005000229335 9 335555255593 oo 0032539095930 5 5505020822828 2 00029009 8 8 | 
> TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


;NEXT LINE. 

RT31A: JSR 5. 0LYXMT >GO DO TEST 
MSGS ; TRANSMIT THIS MESSAGE & 
-60 >; DELAY THIS MUCH BETWEEN LiNES 

TTTTITITTTTITITITITITITITITTTTTT TTT TTT TLT TTT Ee eee 

PT32: Bo 4 ;ROUTINE # 32 | 
RT32 » ADDR OF NEXT ROUTINE. ¥ 
2 > ITERATION COUNT x 
RT32A > SCOPE ENTRY POINT. x 
X=X+1 


o200000050006053500093555255 593522253 3922225059595 5 2550052255858 t 88s 888 | 
: TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
>NEXT LINE. 


RT32A: JSR 5, OLYXMT >GO DO TEST. 
MSGS ; TRANSMIT THIS MESSAGE & 
-62. ;DELAY THIS MUCH BETWEEN LINES 
Suanenenetsnanssasnsoanagesggnsgsaanangaagaaaaaaaaaag ee yetanavenenentyy 
PT33 33 ;ROUTINE # 33 
PT34 ;ADDR OF NEXT POUTINE ; 


SEQ 0031 


MAINDEC-11-DZD0MB OM11 DATA TESTS 


OZOMBC. P11 


006312 
006314 


006316 
006322 
006324 


006326 
006330 
006332 
006334 


O0esie 
O0e 342 
OO 244 
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000002 
006316 
000033 


004537 
014052 
177701 


000034 
177777 
00c002 
006336 
000034 


004537 
014052 
177700 


177??? 
4 


004200 


004 290 
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2 ; ITERATION COUNT x 
RT33A ; SCOPE ENTRY POINT. x 
X=X+1 
Pe oO 00000000000600000000000000000000050000000005999 089000208 >? 2d 02 200000 8 | 
at TO separa ON EACH LINE WITH A DELAY BEFORE STATING THE 
>NEXT LINE. 
RT33A: JSR 5, OLYXMT ;GO DO TEST. 
MSG5 ; TRANSMIT THIS MESSAGE & 
-63. ;DELAY THIS MUCH BETWEEN LINES 
ee ea en or ae 
Pe 34 x 


;ROUTINE # 3 
RT35 ;ADOR OF NEXT ROUTINE. # 
2 > ITERATION COUNT * 
RT34A ‘SCOPE ENTRY POINT. x 
X=X+1 


me $200200503600000038555000555050955552 2229553952 220522 53922202053 825 0503) 
>; TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


>NEXT LINE. 
RT34A: JSR 5. OLYXMT GO DO TEST. 
MSGS » TRANSMIT THIS MESSAGE & 
“64. DELAY THIS MUCH BETWEEN LINES 


PTIE=-! 


SEQ 0032 





ay ee 
wa woe 1-020N8 OmM11 DATA TESTS MACY11 30(104%6) 22-NOV-77 15:32 PAGE 13 
DIDMBC. P11 22-NOV-77 15: 10 SEQ 0033 


:PRG1- DATA TESTS ALL LINES SIMULTANEOUSLY. DATA TRANSMITTED IS ‘THE 
;QUICK BROWN FOX JUMPED OVER THE Wee DOGS BACK 1234567890' 


006346 1040060 PRGI: TYPE PE 

006350 013155 PRGIM , ; PROGRAM TITLE 

006352 022737 O0C176 001102 PRG: CMP #SWREG, SHR ;SEE IF SWITCH-LESS 

006360 001001 BNE PRGIR ;BRANCH IF NOT 

006362 104020 CNTLU ;GET SWREG SETTINGS 

006364 004537 004200 PRGIR: JSR 5, DLYXMT ;GO TO OLYXMT TO SET UP OM11 
006370 013451 MSGI ;MSG1 WILL BE THE DATA TRANSMITTED 
006372 177700 -64. ;D0 NOT DELAY 

006374 012737 007070 001106 PRGIA: MOV #OUTBUF, CAT LOAD CURRENT 

006402 004537 004706 JSR 5, BMOVE ;ADDRESS TABLE 

OCe406 001106 CAT +TO POINT TG 

606410 001110 CAT+2 ; OUTBUF 

006412 O00040 32 

006414 012737 177700 001146 MoV #-64. .WCT »LOAD WORD COUNT 

006422 004537 004706 JSR 5. BMOVE >TO -64 

006426 001146 WCT 

006430 001150 WCT+2 

CO6432 CcO004O ya 

006434 012777 010100 172606 MoV #B1T12+B1Te. aCSR; SET TRANSMITTER & RECIEVER IE BITS 
006442 023727 002154 00004 CMP PRGNUM, #4 >RUNNING PROGRAM #27 

006450 001403 BEQ +:0 

006452 062777 000001 172570 BIS a8 TO, aCSF :SET THE GO Bit 

006460 012777 #177777) 172564 MoV #-1, dBAP > START TRANSMITTING ON ALL LINES 
006466 005777 172560 TST aBAP >WAIT FOP ALL LINES TO COMPLETE 
006472 001375 BNE 74 

006474 005205 'NC %§ 

006476 001376 BNE .°2 

006500 005077 172544 CLR acsr 

006504 023727 002154 O00004 PRGIC. CMP PRGNUM, #4 :00 NOT CHECK DATA IF RUNNING 
006512 001402 BEG PRGIO /PROGRAM # 2 

006514 004737 005026 JSP 7, CHE DAT :GO CHECK RECEIVED DATA 

006520 104000 PRGIC: TYPE : TYPE 

006522 015011 M2 > *PRGEND' 

000524 012706 901100 PRGIEX. MOV SSPBOT. SP ‘RESET THE STACK POINTEP 

O0e520 900715 Br PRGIP /GO RESTAPT TEST 


-PRG2-PROGRAM 2 RUNS PROGRAM 1 EXCEPT FOP THE DATA CHECKING 
WHEN ALL LINES ARE FINISHED TRANSMITTING THIS ALLOWS THE DATA 
-TRANSMITTED TO BE SENT TO TERMINALS. BEFORE STARTING THIS PROGRAM 
“REMOVE THE JUMPERS CONNECTING THE TRANSMITTERS TO THE PEC EIvers 
006532 104000 PRG2: TYPE > TYPE PROGRAM TITLE 
006534 013276 PRGIM >RANO INSTRUCTIONS 
COeS3¢ OON1T7 Soe Thc FRGCIP. IMP P?G* .GO PUN PPG! 





MA\NDEC-11-O020MB OM11 DATA TESTS 
DIOMBC 


Pil 


006542 
006544 
006546 
006554 
006556 
006560 
006564 
006566 
006570 
000576 
006602 
006606 
006612 
006616 
006622 
00630 
000634 
0066 36 


006640 
006642 
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104000 


000240 
000240 
013701 
011137 
001463 
005011 
032737 
001047 
042737 
113702 
010237 
004737 
033777 
001414 
033777 
001374 
032777 


000176 


004200 


001306 
001260 
006640 
001262 
007C44 
001266 
010101 
000001 


0012300 
001272 


040000 


160400 
001273 
001646 
004774 
001274 


001274 
060000 
100000 
001272 
177777 
007070 
001106 
001274 
001504 


001304 


001102 


001200 


172420 


N01272 
001272 


172310 


1722? 
007070 
001146 


1722 


MACY11 30(1046) 
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fy hn tp Mi s THIS PROGRAM ECHOS BACK DATA RECEIVED FROM ANY DM11 
; NAL (3S) 
: THIS TEST 1S THE ONLY TEST THAT INSURES PROPER OPERATION 
DM11 DISTRIBUTION PANEL LOGIC. 


> NOTE: 
OF THE 


PRG: 


PRG3R: 


PRG3A 


PINTS 


PR INT3A: 


NONACT: 


PINT IB: 


41S paceman 
#SWREG. SHR : SEE 1F SWITCH-LESS 
PRG3R ;BRANCH IF NOT 

;GET SWREG SETTINGS 
5, OLYXMT ;USE PART OF THE 

; OLYXMT — TO 

;SET UP OM11 
#TUMTAB. TTPTP ; INITIALIZE SOFTWARE POINTER 
CLK INT, %1 ;LOAC RECEIVER 
#RINTS. (1)+ ;AND TRANSMITTER 
CLKLVL, (1)+ ; VECTORS AND PRIORITY 
#TINT3, (1)+ > LEVELS 
XMTLVL. (1)+ 
98 | pistes idbethgeng ;SET 1E€ AND GO BITS 
a1,% 
“0 
TTPTR, “1 »GET SOFTWARE POINTER 
(1), TTDAT ;GET TUMBLE TABLE ENTRY 
RINT3X ;EXIT IF NO ENTRY 
(1) >; CLEAR ENTRY 
#BiT14. TTDOAT ;WAS BREAK RECEIVED 
RINT3B ;D0 NOTHING ABOUT IT 
#160400, TTDAT ;CLEAR ALL BUT LINE # AND DATA 
TIDAT#+1,%2 ;GET LINE NUMBER 
%2, LINE >FETCH LINE NUMBER 
7, GTLINB ;FORM LINE BIT FOR BAP 
LINBIT. d8AR > 1S THIS LINE ACTIVE 
NONACT >LINE NOT ACTIVE 
LINBIT. dBAR ;WAIT FOR LINE 
.*6 
#BiTi44+B1T13,. aCSR 
+4 » BRANCH IF NO ERRORS 


#BiT1S, aCSR CLEAR TRANSMIT DONE 
TTDAT, OUTBUF (2) ; STORE RECEIVED CHARACTER 


zane eerees LOAD LINE'S WORD COUNT 
%2.% 

SOUTBUF. %3 

%3, CAT(2) AND CURRENT ADDRESS 
LINBIT. dBAR ECHO RECEIVED CHARACTER 


@TUMTAB+176.%1 + CHECK TUMBLE 
+6 ; TABLE POINTER 
#TUMTAB-Z. “1 


(1)+ 


SEQ 0034 















DCOMBC. P11 


007022 
007024 
007032 
007036 
007040 
007042 


007044 
007046 
007054 
007056 
007060 
907066 


000712 
042777 
010137 
000240 
000240 
000002 


000240 
032777 
001401 
104003 
042777 
o0c0d2 


MAINDEC-11-O20MB OM11 DATA TESTS 
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0002C 
001300 


060000 


160000 


172216 


172174 


172162 


RINT3X: 


TINTS: 


J 
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RINT3A 
#8177, dCSR CLEAR CHARACTER DONE FLAG 
%1, TTPTR ;RESTORE POINTER 


;EXIT 


#BITI4+B1T13,aCSR - ANY ERROR FLAGS SET 
. +4 


a ea > CLEAR ALL FLAGS 
7; EX! 


SEQ 0035 


se 


K 3 
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DZDMBC. P11 22-NOV-77 15: 10 SEQ 0036 | 

007070 o00000 OUTBUF: 0 

007234 . SOUTBUF +100. 
007234 000000 LNOBUF: .0 

007400 . =LNOBUF +100. 
007400 9o00000 LNIBUF: 0 

007544 . =LNIBUF +100. H 
007544 9000000 LN2BUF: 0 

NC7710 . =LNZBUF +100. 
007710 O000G60 LN3BUF: 0 

010054 P . =LN3BUF +100. 
c10054 900C00 LNYBUF: 0 

010220 . =LNYBUF +100. 
010220 90C900 LNSBUF: 0 

010364 . =LNSBUF +100. 
010364 000000 LNOBUF: 0 

010530 . =LNOBUF +100. 
010530 000000 LN7BUF: 0 

010674 . =LN7BUF +100 
010e°4 000000 LNIOBF: 0 

011040 . =LNIOBF +100. 
011040 ccooo0 LNIIBF: 0 

011204 . =LN11BF +100. 
011204 ocd000 LNI2ZBF: 0 

011350 _ =LN12BF +190. 
011350 9000000 LNISBF: 0 

011514 . =LN13BF +100 
011514 000000 LNI4BF: 0 

011660 . =LNISBF +100. 
011660 000000 LNISBF: 0 

012024 . =LNISBF +100 
012024 000000 LNIOBF: 0 

012170 _ =LN16BF +100 
012170 000000 LNI7BF: 0 

012334 . =LN17BF +100. 
012334 007234 INTAB: LNOBUF 
012336 007400 LNIBUF 
012340 007544 LN2BUF 
012342 007710 LN3BUF 
012344 010054 LN4YBUF 
012346 010220 LNSBUF 
012350 010364 LN@BUF 
012352 010530 LN7BUF 
012354 010674 LN10BF 
012356 011040 LN11BF 
012360 011204 LN12BF 
012362 011350 LN1 3BF 
012364 011514 LNI4BF 
012366 011660 LN1SBF 
012370 012024 LN1IOBF 
012372 012170 LN17BF 
012374 9000000 CNTTAB: 0 

012414 _ =CNTTAB+16 : 
012414 012454 1D: IDENTO 
012416 012460 IDENT! 


012420 012464 IDENT? 





MAINDEC-11-DZ2D0MB OM11 DATA TESTS 
22-NOV-77 15: 10 


D2OMBC. P11 
012422 


012424 
012426 


012554 


012470 
012474 
012500 
012504 
012510 
012514 
012520 
012524 
012530 
012534 
012540 
012544 
012550 
105215 
030060 
105215 
030460 
105215 
031060 
105215 
031460 
105215 . 
032060 
105215 
032460 
105215 
033060 
105215 
033460 
105215 
030061 
105215 
030461 
105215 
031061 
195215 
031461 
105215 
032061 
105215 
032461 
105215 
033061 
105215 
033461 
105215 
105215 


MACY11 30(1046) 


|DENTO: 
IDENT1: 
IDENT 2: 
IDENTS3: 
IDENTY: 
1 DENTS: 
IDENT6: 
1 DENT?: 
1ONT10: 
(ONT11: 
1 ONT12: 
1DNT13: 
1\ONT14: 
1ONT15: 
1ONT16: 
iONT1?: 


IDENT3 
|DENTY 
IDENTS 
IDENT6 
IDENT? 
(\ONT10 
\ONT11 
1\ONT12 


CPLF 
CPLF=105215 


L 
22-NOV-77 


3 
15:32 PAGE 15-1 


SEQ 0037 


ee | 





nM 3 
MAINDEC-11-DZ20MB DOM11 DATA TESTS MACY11 30(104%6) 22-NOV-77 15:32 PAGE 16 
DZOMBC P11 22-NOV-77 15: 10 . SEQ 0038 


+ MESSAGES 

012556 O42045 030515 020061 WHERE: ASCII ‘Z%DM11 RECEIVER VECTOR ADDRESS = Q' 
012564 042522 042503 053111 
012572 051105 053040 041505 
012600 047524 020122 042101 
012606 051104 051505 020123 
012614 020075 100 
012617 O4S 053523 036522 SSWREG: .ASCI| ‘%SWR= Q' 
012624 O40040 
012626 O20040 O20040 O20040 SVALUE: ASCi! ' NEW= @' 
012634 O20040 C20040 042516 
012642 03€527 040040 
012646 O236445 040 SCTLU: .ASCII ‘%= ' 
012651 O4S O44127 O41511 WHICH ASCII ‘WHICH DM11 ARE YOU TESTING @' 
012656 020110 O46504 030461 

12664 O4O44O 042522 054440 
012672 052517 052040 0561505 
012700 044524 043516 9040040 
012706 042045 052101 020101 ERDAT: ASCII ‘*“GATR ERR S/B 
012714 051105 020122 051440 
012722 041057 020072 
012726 020040 020040 020040 AASB: -ASCIE WAS 
012734 020040 040527 035123 
012742 040 


012743 040 020040 020040 AWAS: .ASCIT ° a’ 

012750 020040 100 

012753 114 O47111 QO201CS LINEM .ASCI: ‘LINE # ' 

012760 020043 

012762 020040 040040 ALINE: .ASCII ' a" 

012766 052045 050131 020105 MO: ASCII ‘XTYPE PROGRAM #Q' 


012774 051120 043517 040522 

013002 020115 O40643 

012006 037445 100 M1: ASCII ‘%7a" 

013011 04S 042524 052123 Mz: ASCIE ‘XTEST DZOMB COMPLETEQ' 
013016 042040 042132 041115 

013024 O41440 046517 046120 

013032 062105 040105 

013036 051445 052105 051440 M3: ASCII ‘X%SET SP OPTIONS. NORMAL OPERATION’ 
013044 020122 50117 044524 

013052 047117 627123 047040 

013060 051117 O40515 020114 

013066 050117 051105 052101 

013074 047511 116 

013077 123 020122 020075 ASCi! “SP = OOOOCO PRESS CONT. a’ 
013104 030060 030060 930060 

013112 050040 642522 051523 

013120 O41440 047117 027124 

013126 100 

013127 04S O40504 O40524 PRGOM ASCII ‘“DATA TEST ALL LINES a’ 
013134 052040 051505 9020124 

013142 046101 020114 044514 

013150 042516 020123 100 

013155 04S O40SO4 O40524 PRGIN ASCII ‘XDATA TEST TRANSMIT ON ALL LINES SIMULTANEOQUSL Ya’ 
013162 052040 051505 20124 

013170 051124 047101 046523 











MAINDEC-11-DZ20MB OM11 DATA TESTS 
22-NOV-77 10 


DZONBC. P11 


013176 
013204 
013212 
013220 
013226 
013234 


013235 
013242 
013250 
013256 
013264 
013272 
013277 
013304 
013312 
013320 
013326 
013334 
013342 
013346 
013354 
013362 
013370 
013376 
013404 
013412 
013420 
0:3426 
013427 
013432 
013440 
013442 
012450 
013451 
013453 
013460 
013466 
013474 
013502 
013510 
013516 
013524 
013532 
013540 
013546 


013552 


013570 
013572 





052111 
046101 
042516 
052515 
047505 

100 


177400 


15: 


047440 
020114 
020123 
052114 
051525 


051124 
052111 
042524 
046101 
044103 
052123 
052520 
051101 
051123 
026051 
020131 
24122 
040051 
050131 
044522 
052120 
047050 
042040 
042105 
042104 
053105 


020122 
020040 


020040 


020116 
044514 
044523 
047101 
054514 


047101 


026470 


020105 
054524 
047511 
047075 
051505 
047440 
020054 
047105 


041520 
020040 


020105 


033466 


MACY11 30(1046) 


PRG2M: 


PRGSM: 
PRGI: 


POPPAR: 


EMO 
ATNUMB: 


APC: 
MSG1: 


MSG2: 


ASCII 


ASCII 
ASCII 


ASCI 


ASCII 
ASCII 


ASCII 


BYTE 
ASCII 


_ EVEN 
. BYTE 


177400 
177400 
177400 
177400 
177400 
177400 
177400 
177490 


N 3 
22-NOV-77 15:32 PAGE 16-1 


'%TRANSMIT TO TERMINALSA' 


"%ZECHO TEST 
"%PUT CHAR IN SR(O-7),DELAY IN SR(8-15)0' 


'. TYPE PARITY OPTION (N=NOT DESIRED O=000. E=EVEN@' 


' % i] ’ 


15.12 
* THE 


er 


PC= ' 


QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 1234567890" 


SEQ 0039 


BY 
MAINDEC-11-DZ0MB OM11 DATA TESTS MACY11 30(1046) 22-NOV-77 15:32 PAGE 16-2 





DZDMBC. P11 22-NOV-77 15: 19 SEQ 0040 
013574 177400 177400 
013576 177400 177400 
013600 177400 177400 
013602 177400 177400 
013604 177400 177400 
013606 177400 177400 
013610 177400 177400 
013612 177400 177400 
013614 177400 177400 
013616 177400 177400 
O13e20 177400 17740° 
013622 i77400 177400 
013624 177400 177400 
013626 177400 177400 
013630 177400 177400 
013632 177400 177400 
013634 177400 177400 
013636 177400 177400 
013640 177400 177400 
013642 177400 177406 
013644 177400 177400 
O13e46 177400 177400 
013650 177400 177400 
013652 015 Ole MSG3. _BYTE 15.12 
013654 176252 ALTO 
013656 125252 ALTO 
013660 125252 ALTO 
013662 125252 ALTO 
013664 125252 ALTO 
013666 125252 ALTO 
013670 125252 ALTO 
013672 125252 ALTO 
013674 125252 ALTO 
012676 125252 ALTO 
013700 125252 ALTO 
013702 125252 ALTO 
013704 125252 ALTO 
013706 125252 ALTO 
013710 125252 ALTO 
013712 125252 ALTO 
013714 125252 ALTO 
013716 125252 ALTO 
013720 125252 ALTO 
013722 125252 ALTO 
013724 125252 ALTO 
013726 125252 ALTO 
013730 125252 ALTO 
013732 125252 ALTO 
013734 125252 ALTO 
013736 125252 ALTO 
013740 125252 ALTO 
013742 125252 ALTO 
013744 125252 ALTO 
013746 125252 AL TC 
013750 126252 ALTO 


013752 015 O12 MSG4 BYTE 1€.i2 








MAINDEC-11-DZ20MB OM11 DATA TESTS 


DZOMBC. P11 


013754 
013756 
013760 
013762 


014132 


22-NOV-77 15:10 


052525 
052525 
052525 
052525 
052525 
052525 
052525 
052525 
052525 
052525 
052525 
052525 
052525 
052525 
052525 
052525 
052525 


O12 


nm <x Ran 
MACY1i 30/°046) 22-NOV-77 15:32 PAGE 16-3 


ALT 
ALT1 
ALT1 
ALT1 
ALT1 
ALT1 
ALT1 
ALT1 
ALT1 
ALT1 
ALT! 
ALT1 
ALTI 
ALTI 
ALTI 
ALTI 
ALTI 
ALT1 
ALT1 





SEQ 0041 





MAINDEC-11-020MB OM11 DATA TESTS 
22-NOV-77 15: 10 


OZOMBC P11 


014134 
0141 % 
014140 
014142 
014144 
014146 
014150 
014162 


000200 
177377 
175775 
167767 
137737 
177500 

0i5 

015 
000001 


MACY11 30(1046) 


200 
177377 
175775 
167767 
137737 
177500 
BYTE 
. BYTE 
END 


0 
22-NOV-77 


ee 
15:32 PAGE 16-4 


SEQ 0042 | 


—E 4 
MAINDEC-11-D20MB8 OM11 DATA TESTS MACY11 30(1046) 22-NOV-77 15:32 PAGE 17 


DZOMBC. P11 22-NOV-77 15: 10 SYMBOL TABLE SEQ 0043 
5 = 000000 DNPAR O003042 LINE 001646 PRGIEX 006524 RTZ 005466 

AASB 012726 DMPARB 003326 LINEM 012753 PRGIM 013155 RT2A 005476 

ALINE 912762 DTCHK 001664 LNOBUF 007234 PRGIR 006364 RT20 006026 | 
ALTO = 125252 EHALT = 104010 LNIBUF 007400 PRG2 006532 RTZ20A 006036 
ALTI = 052525 EMO 013427 LNIOBF 010674 PRG2M 013235 RT21 006046 | 
APC 013442 EMTINT 002572 LNI1BF 011040 PRG2R 006536 RT21A 006056 
APCADD 001642 EMTTAB 001554 LNIZBF 011204 PRG3 006542 RT22 006066 
ATLAST= 177777 EROAT 012706 LNI3BF 011350 PRG3A 006570 RT22A 006076 
ATNUMB 013432 ERR 001732 LNI4BF 011514 PRG3M 013264 RT23 006106 
AWAS 012743 ERRA 001770 LNISBF 011660 PRG3R 006560 RT23A 006116 
BAP 001252 ERRB 002032 LNI6BF 012024 PRTYO = 000000 RT24 006126 

BARDAT 001276 ERRC 002040 LNI7BF 012170 PRTY1 = 000040 RT24A 006136 | 
BPeIM 001270 ERREX 002060 LN2BUF 007544 PRTY2 = 000100 R725 006146 
BRPSREG 001256 ERRHLT 002056 LN3BUF 007710 PRTY3 = 000140 RT25A 006156 

BAT 001206 ERROR = 104003 LNYBUF 010054 PRTYY = 000200 RT26 006166 

BELL = 000007 ERROR1= 104015 LNSBUF 010220 PRTYS = 000240 RT26A 006176 

BiTO = 000001 ERRVEC= 000004 LNOBUF 010364 PRTY6 = 000300 RT27 006206 

BiTl = 000002 ERR1 001750 LN7BUF 010530 PRTY? = 000340 RT27A 006216 

81710 = 002000 ESCOPE 002356 MANUAL= 100000 PRVCNT 001644 RT3 005506 

BITi1 = 004000 FRJAG 004116 MSG1 013451 PSW == 177776 RT3A 005516 

BiT1i2 = 010000 FORWO 002540 MSG2 013552 RCVDAT 001630 RT30 006226 

BiT13 = 020000 GETRDY 002246 MSG3 013652 RECD 003604 RT30A 006236 

BiT14 = 040000 GTLINB 004774 MSG4 013752 RINT 005134 RT31 006246 

BiTiS = 100000 GTROYA 002274 MSGS 014052 RINT3 006640 RT3i1A 006256 

BiT2 = 000004 GTRDYC 002316 MO 012766 RINT3A 006650 RT32 006266 

BIT3 = 000010 GTRDYD 002340 M1 013006 RINT3B 007006 RT32A 006276 

BiT4 = 00002 GTROYX 002254 M2 013011 RINT3X 007024 RT33 006306 

BiTS = 000040 ICTR 001526 M3 013036 RSTART 001544 RT33A 006316 

BiTé = 000100 10 012414 NONACT 006752 RSTAT1 002130 RT34 006326 

BiT? = 000200 IDENT 004532 NOP = 000240 RSTATZ2 002200 RT34YA 005336 

BiIT8 = 000400 IDENTO 012454 NXTST 001524 RSTREG= 104014 RT35 = 177777 

BiT9 = 001000 IDENT? 012460 OACNY 004620 RSTRG 002664 RT4 005526 

BKCSR 001254 IDENT2 012464 OPEN = 000000 RTNNO 001522 RTYA 005536 

BMOVE 004706 IDENT3 012470 OUTBUF 007070 RTN 005426 RTS 005546 

CARMSK 001634 IDENT4Y 012474 OVRLAY 003550 RTOA 0054 36 RTSA 005556 

CAT 001106 IDENTS 012500 PASS 001652 RTI 005446 RT6 005566 

cc = 177776 IDENT6é 012504 PCADD 001640 PTIA 005456 RT6A 005576 

CHKDAT 005026 IDENT? 012510 POPPAR 013346 RT10 005626 RT? 005606 

CLEINT 0012 1ONTIO 012514 POPSP = 005726 RTiOR 005636 RT7A 005616 

CLeLWL 001262 1ONT11 012520 POPSP2= 022626 PT11 005646 SAVREG= 104013 


DISPRE 000174 LINBIT O01274 PRGIC 006504 RTI? 06006 START 002112 
DLYX™T 004200 LINBUF 001650 PRPGID 006520 PTI7A O0e0l6 STRPxW = 104006 








y 
MAINDEC-11-020MB OM11 DATA TESTS MACY11 30(1046, 22-NOV-77 15:32 PAGE 17-1 


DZOMBC. P11 22-NOV-77 15: 10 SYMBOL TABLE SEQ 0044 | 
STTxv = 104007 TKDOBR 001622 TTPTR 001300 VECOKB 003264 XMTLVL 001266 

SUSWR = 104016 TKLVL 001510 TUMTAB 001306 VECTOR 003230 Y = 000000 

SUSHWPR 004120 TKVTR 001506 Tye 002726 WCT 001146 SCTLU 012646 

SHR 001102 TMP 1 004076 TYPE = 104000 WHERE  01255€ SENDAD 002530 

SWREG 000176 TPCSR 001624 TYPES = 104001 WHICH 012651 SSWREG 012617 

TEMP 001636 TPDBR 001626 UNIT 003346 x = 000034 SVALUE 012626 

TINT 005326 TPLVL 001514 VAC 001246 XMITO 004730 ' = 014154 

TINTS 007044 TPVTR 001512 VECOK 003246 XMTDAT 001632 

TecSP = =©001620 TTDAT 001272 VECOKA 003256 XMTINT 001264 


SBS. 014154 000 


EPPORS DETECTED: 0 


DIOMEC. OIOMBC. SEQ/NL: SEQ=DIOME® P11 
PUN-T:'ME 1 3. 3 SECONDS 

FUN-TIME PATIO 418.5=70.0 

CORE USEC § +9 PAGES: 


